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1.0  INTRODUCTION 


The  hydraulic  transient  analysis  (HYTRAN)  computer  program  is  intended  for 
use  by  designers  with  an  Interest  in  the  detailed  performance  of  an  aircraft 
hydraulic  system  or  the  response  of  a load,  where  the  supply  system  is  an 
integral  part  of  that  response. 

An  aircraft  hydraulic  system  is  basically  a power  source  connected  to  sev- 
eral loads.  Under  steady  state  conditions,  where  only  the  pump  and  fluid  are 
moving,  the  flows  and  pressures  at  various  points  In  the  system  can  be  calculated 
using  non-time  dependent  formulae.  However  the  unsteady  flow  conditions  which 
are  more  normal,  cannot  be  analyzed  using  simple  formulae.  The  pump  is 
basically  a closed  loop  servo  which  has  a time  varying  output  and  responds 
continuously  to  system  pressure  changes.  These  changes  propagate  through  the 
system  at  the  speed  of  sound,  which  is  about  4000  ft/sec.  The  system  components 
respond  to  these  pressure  and  flow  changes,  and  to  external  load  and  control 
disturbances. 

The  program  simulates  the.  complete  system  and  calculates  the  value  of 
all  the  flows,  pressures  and  state  variables  throughout  the  system. 

ThiB  allows  the  designer  to  study  the  dynamic  response  of  any  variable, 
such  as  a check  valve  poppet  position,  an  actuator  piston  velocity,  the  pump 
swash  plate  acceleration,  etc.,  Bince  all  these  variables  are  calculated  as 
part  of  the  system  simulation. 

The  program  is  composed  of  five  basic  parts;  input,  steady  state  calcula- 
tion, line  simulation,  component  simulation,  and  output. 

The  designer  Inputs  data  describing  the  lines,  components,  and  system 
configuration.  Since  the  simulation  is  only  as  good  as  the  data,  some  of  the 
information  required  for  components  such  as  a pump,  is  very  detailed. 


Fortunately  there  are  only  a few  components  like  this  and  often  these 
are  common  to  many  systems,  e.g.  DC-10  pumps  are  used  on  the  747,  L1011  and 
A300  aircraft. 

The  steady  state  section  of  the  program  balances  the  pressures  and 
flows  in  the  system  and  calculates  the  initial  values  for  all  the  system 
state  variables.  Once  the  initial  values  are  established  at  zero  time, 
the  program  starts  by  calculating  for  a small  change  in  time  (delta  T) , new 
flows  and  pressures  at  the  junction  between  the  line  segments. 

The  lines  are  divided  into  segments,  the  leT  gth  of  each  segment  being 
greater  than  or  equal  to  the  velocity  of  sound  in  the  line  divided  by  the 
time  interval  delta  T.  There  is  a whole  number  of  segments  for  each  line. 

Once  the  new  pressures  and  flows  have  been  established  for  the  line 
junctions,  the  program  calculates  new  values  for  the  Btate  variables  of  all 
the  components,  and  the  flows  and  pressures  at  the  junctions  between  the 
components  and  the  lines. 

The  program  continues  to  march  forward  in  delta  T time  intervals,  first 
calculating  the  line  and  then  the  component  variables. 

The  output  part  of  the  program  selects  the  variables  that  are  required 
as  output  or  output  plots,  at  specified  time  steps,  since  it  is  not  always 
necessary  to  plot  every  value  that  was  calculated.  When  the  program  calculations 
are  completed,  the  output  is  then  printed  and  plotted. 

The  controlling  input  to  the  system  will  usually  be  a sudden  load  demand 
from  a surface  actuator  or  some  similar  load  function.  This  is  input  as  a time 
dependent  valve  motion  or  input  demand. 

The  output  is  essentially  a time  hiBtory  of  selected  system  variables 
which  have  been  disturbed  by  the  controlling  input. 


Since  the  program  actually  advances  in  discrete  time  steps,  it  can  be 
integrated  into  other  simulations,  if  the  cost  of  running  can  be  tolerated. 
This  report  is  a technical  description  of  the  KYTRAH  Program,  including 

a detailed  listing  of  the  main  program  and  subprograms,  and  the  theoretical 

i 

basis  and  assumptions  made  in  the  calculations. 

Volume  1 of  this  report  is  a users  manual  which  describes  how  the 
program  can  be  used,  the  method  of  inputting  data  and  the  interpretation 
of  the  output. 
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2.0  TECHNICAL  SUMMARY 


The  HYTRAN  program  is  intended  for  use  by  engineers  with  different 
interests.  Some  will  be  concerned  with  the  performance  of  the  hydraulic 
system  as  a whole,  while  others  will  be  interested  in  _he  detailed  performance 
of  individual  components. 

HYTRAN  uses  a building  block  approach  which  allow*  the  programmer  to  meet 
these  needs  by  adding  special  component  subroutines  as  required  to  the 
existing  component  subroutine  library. 

The  program  is  supported  by  a number  of  specialized  utility  routines, 
which  have  been  included  to  avoid  program  incompatibility  with  other 
computer  systems.  In  the  development  of  HYTRAN,  the  emphasis  waB  placed  on 
the  performance  of  the  hydraulic  system  as  a whole,  and  its  components  are 
considered  only  to  the  extent  to  which  they  affect  the  total  system  response. 

The  transient  analysis  is  a digital  simulation  process,  which  treats 
the  fluid  lines  with  distributed  parameters,  applying  the  concepts  of  wave 
mechanics,  and  including  the  effects  of  nonlinear  friction.  The  fluid  line 
equations  ar  s solved  with  the  help  of  the  method  of  characteristics.  The 
dynamic  equations  of  the  components  are  either  algebraic  or  ordinary  differential 
equations.  These  form  the  boundary  conditions  of  the  lines  and  are  solved  sim- 
ultaneously with  the  associated  line  characteristic  equations.  A numerical  scheme 
is  used  to  make  the  grid  of  characteristics  compatible  with  the  integration 
techniques  used  by  the  components. 

The  input  to  the  system  is  normally  a valve  motion,  which  causes  a 
disturbance  to  propagate  through  the  mathematical  model . The  output  of 
the  program  is  the  time  histories  of  pressure  and  flows  at  any  point  in  the 
system  and  other  variables  of  interest  such  as  actuator  positions. 
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In  the  simulation  of  the  components,  the  precision  of  the  model  used 
will  depend  upon  its  use.  If  the  user  is  studying  the  dynamic  stability  of 
a pump  system,  then  an  accurate  model  is  required.  It,  however,  the  user  is 
studying  an  actuator  out  at  the  end  of  the  line  syBtem,  the  pump  response  could 
be  simulated  using  a simpler  model;  hence  saving  some  running  costs.  In  a 
similar  manner,  actuator  friction  has  a significant  effect  on  its  small  amplitude 
response,  but  such  friction  is  of  little  interest  if  the  actuator  is  being 
used  as  large  demand  load  in  the  study  of  pump  stability. 

The  dynamics  of  components  such  aB  pumps  are  very  dependent  on  the 
dynamic  properties  of  the  connecting  lines  and  components;  hence  it  is 
important  in  simulations  involving  these  components  that  an  accurate  system 
simulation  be  used. 

The  results  which  are  obtained  from  HYTRAN  are  solutions  of  the  differential 
and  algebraic  equations  used  to  describe  the  system  dynamics . The  solutions 
are  obtained  by  methods  of  numerical  analysis,  such  as  Runge  Kutta  numerical 
integration  procedures,  method  of  characteristics,  and  T agrange  interpolations. 
They  are,  therefore,  subject  to  the  errors  which  are  inherent  in  numerical 
methods,  but  which  can  be  kept  small  enough  to  be  of  no  practical  influence. 

Of  more  importance  than  the  numerical  inaccuracies  are  the  underlying 
assumptions  and  restrictions  imposed  upon  the  basic  equations. 

A digital  simulation  has  been  chosen  because  of  some  important 
advantages  over  the  simulation  on  an  analog  computer.  These  are,  in  particular, 
the  high  accuracy  in  conjunction  with  an  almost  unlimited  memory  capacity, 
the  reliability,  the  absence  of  scaling  problems,  and  the  difficulty  of  modeling 
wave  phenomena  on  analog  computers. 

The  numerical  aspects  of  digital  simulation  are  described  in  a variety  of 
textbooks.  The  concepts  of  the  method  of  characteristic  are  explained  in  Appendix 
A and  in  more  general  terms  in  the  description  of  the  line  subroutine. 


3.0  MAIN  PROGRAM 

The  main  or  executive  program  section  of  HYTRAN  is  named  HYTR.  HYTR 
controls  the  flow  of  the  program,  and  keeps  track  of  the  counters  for 
time  variables.  The  BLOCK  DATA  and  FLUID  subroutines  are  also  included  in 
this  section. 

HYTRAN  is  a program  that  has  evolved  over  a number  of  years,  with  changes 
being  made  from  time  to  time  to  simplify  the  programming  procedures  and 
additions  being  made  to  expand  its  capabilites. 

Since  the  program  is  still  in  the  development  stage,  changes  and 
additions  will  continue  to  be  made  whenever  significant  improvements  can  be 
achieved. 

Some  coat  savings  can  be  made  by  the  use  of  OVERLAYS  or  SEGMENTS,  but 
it  was  decided  that  the  use  of  these  devices  should  be  left  to  the  individual 
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3.1  HYTR  Program 

HYTR  is  the  main  or  executive  program  of  HYTRAN.  The  program  flow  is 
directed  from  HYTR,  but  there  are  no  significant  calculations  made  there.  Only 
general  control  data  is  read  in  HYTR.  The  main  program  card  io  eet  up  to  read 
from  a file  called  DATA.  This  should  be  changed  to  Buit  the  user’s  own  data 
Inputting  scheme.  Extensive  use  is  made  of  common  and  equivalences,  so  that 
care  is  required  in  modifying  variables  that  are  contained  therein. 

The  first  section  of  HYTR  reads  and  prints  data  from  general  control  cards 
and  calls  FLUID  to  calculate  values  of  bulk  modulus,  viscosity  and  density. 
FLUID  subroutine  then  prints  all  the  calculated  data.  In  event  the  fluid  data 
is  input,  FLUID  will  then  Just  print  the  input  data. 

The  second  section  calls  LINE  which  reads  line  data  then  calculates 
constants,  initializes  variables  and  writes  data  to  output.  Next,  COMP  is 
called  to  read  and  print  component  data  and  to  set  constants  and  initialize 
variables  for  all  components.  STORE  is  called  to  read  all  the  output  data 
requirements  and  then  SSDATA  is  called  which  reads  in  the  system  arrangement 
data  and  performs  steady  state  calculations. 

The  third  section  again  calls  LINE  and  COMP  to  initialize  all  the  system 
state  variables.  STORE  is  then  called  to  store  pressures,  flows  and/or 
component  variables. 

The  fourth  section  advances  the  time  step  by  DELT.  LINE  and  COMP  are 
called  to  do  the  transient  calculations.  Than  step  is  repeated  until  the  sum 
of  the  time  intervals  is  equal  to  the  input  total  run  time.  During  this 
iterative  procedure,  variables  to  be  plotted  are  stored  by  STORE. 
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When  time  T exceeds  the  final  tire  specified  in  the  input,  the  program 
stops . 

3.1.1  Math  Model.  Not  applicable. 

3.1.2  Assumptions . 

The  basic  assumptions  in  HYTR  are  as  follows: 
o Fluid  temperature  is  assumed  constant  during 
the  entire  run. 

o Flow  is  one-dimensional,  that  is,  the  fluid  properties  are  constant 
across  any  transverse  cross  section  of  the  pipe, 
o Pipes  have  circular  cross  sections. 

o Stresses  in  pipes  are  always  below  the  elastic  limit, 
o Pipe  geometry  is  such  that  the  "thin  wall"  case  is  valid, 
o Pipe  and  liquid  are  perfectly  elastic  (all  energy  dissipation  is  due 
to  shearing  stresses  at  the  walls) . 

3.1.3  Computation  Methods.  Not  applicable 

3.1.4  Approximations . 

HYTR  approximations  are  those  inherent  in  numerical  analysis.  They  are 
kept  small  enough  by  error  control  to  be  of  no  practical  influence. 

3.1.5  Limitations ■ 

HYTR  currently  has  the  following  constraints: 
o Temperature  range  . . . -65°F  to  300°F 
o Pressure  range  ...  0 psia  to  5000  psia 
o Maximum  number  of  components  ...  60 

o Maximum  number  of  lines  ...  79 

o Maximum  number  of  legs  ...  70 

o Maximum  number  of  nodes  ...  50 


o 


Maximum  number  of  plots  ... 


60 


3.1.6  Variable  Names 


Variable 


I 

IF 

IF INAL 
M 
MM 
N 

PRESS 

X 


Description 

Counter 

Fluid  type  indicator 

Number  of  transient  iterations 

Dummy  Variable 

Address  = LSTART  ( ) + NLPT-1 
Counter 

Working  Pressure 
Updated  characteristics 


Units 


PSIA 
PS  I 


3.1-4 


no  noon  n n n o n n n 


3.1.7  SUBROUTINE  LISTING 


PROGRAi-i  HYT R ( INPUT , OUT  PUT , DATA  , TAPE 5 = DATA , TAPE  6 = OUTPUT , 

1 SDFN , TAPE  1=5  DFN , A1 4 OCO, TAPE 3=A1 4 OCD) 

C ***  REVISED  AUGUST  5,  1975  *** 

COM. ION  NT EL PL , MTCLPL , I P? , I POINT , UPTS , INEL, XNEL, WTOPL , NLPLT (61,3), 
1 ’/STORE ( 6150) 

COMMON/ SU3/PAR.1  ( 150,9)  , PM(  1500)  ,QM(  1500)  ,P(  300)  ,0(300)  ,C(  300) 

1,2(  300)  , RHO(  20)  ,S20RHO( 20)  ,VI3C(  20)  ,BtJLK(  20)  ,TEMP(  20)  , PVAP(  20) 

2 ,  ATPRES , T, DELT , TFINAL, PLTDEL , PI , TITLE ( 20) , LfiGN, ICON 

3 ,  KT EM P ( 9 9 ) ,LSTART( 150) ,KLPT( 150) , LTYPE(99) ,NC( 99) , INX, INZ 

4,  IMV,  I STEP,  N LINE , NLL,  I ND,  I ENTR,  MNLINE , MNEL,  MNLEG , MNNODE , .■•IN  PLOT 

5 ,  MM LPT S , mOS 

C*  * * 

READ( 5,470) (TITLE ( I ) , 1=1,20) 

»RITE(S,430)  TITLE 
ISTCP=0 
PI=3. 1415 
T=0 . 0 

Q ★ * * 

C THIS  READ  STATEMENT  INPUTS  THE  FOLLOWING  DATA 

DELI  = DELTA  TI.iE  NETMEEN  CALCULATIONS  SEC 
TFINAL=FINAL  TIME  SEC 

PLTDeL=DELTA  TI.iE  3'wTvJELN  PLOT  POINTS  SEC 
TEmP  TEMPERATURE  OF  OIL  DEG  F 

RLAO( 5,450)  DELT, TFINAL, PLTDEL, TEmP( 1 ) , DTLMP, PRESS , PRLSR, ATPRES 
WRITE ( 6 , 4.35)  TFINAL,  DELT,  PLTDEL 
IF  ( DELT. LQ.  0 ) GO  TO  2 5.1 
NPTS  = 1 .01  + T F I U A L/ ? LT  D £ L 
I PC  I NT=  0 . 5 + P LT  D6  L/D  L LT 
I F I NA  L=  0 . 5 +T  P I NA L/ DELT 

THIS  READ  STATEMENT  INPUTS  THE  FOLLOWING  DATA 
ML  INF  =NU.,3EK  OF  LINES 
NLL  =N  TIM  SEP.  OF  COMPONENTS 
IF  = FLUID  TY°E 
VISC  = FLUID  VISCOSITY 
R 1 1 0 =FLUI D DENSITY 
3ULU  = F L U I D SULK  MODULUS 

READ( 5,460)  ULIUK, NLL, IF , INV, VIbC( 1) ,RHO( 1) ,3ULK( 1) ,PVAP( 1 ) 

PRESS  IS  USED  TO  L STAS LIS H FLUID  PROPERTIES  PSIG 
SET  SYSTr.M  PRESSURE  TO  ITS  DEFAULT  VALUE 
I?(  PRL.SS.EO.  0. 0)  PRES S = 3 009. 

SET  RETURN  PRESSURE  TO  ITS  DEFAULT  VALUE 
I ? ( PREOR.EO. 0. 0)  PRESR-50. 0 
: C SET  THE  VAPOUR  PRESSURE  TO  ITS  DEFAULT  VALUE 

IF(PVAP(1) .EO.0.0)  PVA?( ] ) =2 . 0 
C Set  ATMOSPHERIC  PRESSURE  TO  ITS  DEFAULT  VALUE 

IF( ATPRES. EO. Q. 0)  ATPRES =1 4.5 
C Sl-.T  TEilP  AND  OTL..P  TO  TRIER  DEFAULT  VALUES 

IF ( r.E.-i?(  1)  .LO.0.0)  T),.iP(  1)  = 190. 

IF  ( OTL:  i P . EG  • 9 . 0 ) DTEM  P=1  0 . 0 

CALL  F LUID(  TEMP,  DTE. !P,  PRESS,  PRES R,  IF  , VISC,  OtJLK , RHO,  PVAP) 
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(Continued) 


N=20 

IF(IF.EQ.O)  N = 1 
DO  100  1=1, N 

100  S70RH0(I)=S0RT( 2./RH0(I) ) 

C 

IENTR=-1 

C 

CALL  LINE 
C 

ivjl:l=o 

CALL  COM? 

CALL  S 13 RAN 
C 
C 

CALT,  SECO'MDfCPU) 

WRITE ( 0,0009)  CPU 

9009  FORMAT ( 10X,*CPU  TIME  IN  SECONDS  =*,F10.3) 

CALL  SSOAT'A 
CALL  SECOND(CPU) 

«P.ITfc’(  5, 9900)CPrj 

***  THIS  SECTION  CALLS  LINE  AND  COM P TO  INITIALIZE  ALL  THE 
SYSTEM  VARIABLES  TO  TlilER  STEADY  STATE  VALUES 

IF  (T.L'O.0.0)  3 TOP 
IENTR=0 
I K1  EL=0 

CALL  LINE 

CALL  COM? 

CALL  STORE 

TRANSIENT  CALCULATION  SECTION 

IENTR-l 

150  CONTI -HU: 

T=T+0E'L7 
I STL.  ?=  I STB  P+1 
I F ( T . GT .0.0) GO  TO  251 


CALL  LINE 
CALL  S BRAN 


DO  ELEMENT  CALCULATIONS 
X=CHARUP( I , T) 


3.1-6 


3.1.7 


(Continued) 


CALL  COUP 
N=-l 

00  250  I = 1,WLI'JL 
W -N  + 2 

/j=LSTART(  I ) 

;>lM=il+NLPT  ( I ) - 1 
P:-i  ( i*l ) = P ( N ) 

Pi*l(  .'l.i)  = P(  N+l ) 

Ot'l(.'I)=-Q(N) 

250  n.l{M.l)=Q(N  + l) 

CALL  STORE 

1 17  ( TSTLP.  LT.  IFIM.AL)  GO  TO  150 
STOP 

251  CONTINUE 
STOP  3100 

45  0 FOR.i AT  (3L10.0) 

460  FORnAT( 4I5,6L10.0) 

470  FORil AT(  20A4  ) 

4 0 0 FOR.’iAT ( 25X,  20 A 4, // ) 

435  FOP.  i AT  ( 2 OX , 4 4 ri  TrfL  TRANSIENT  RESPONSE  IS  F ROW  T=0.0  TO  T= 

1 F7 « 3 » 35U  SECONDS  AT  TI.-.l:  INTERVALS  OF  DbLT=  , 

2 F7 . 5 , //  , 3 OX  , 4 81!  WIT  U OUTPUT  POINTS  PLOTTED  AT  INTERVALS  OF 

3 F7 , 5 , 9H  SECONDS  , //) 

END 
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3.2  BLOCK  DATA 


Block,  data  is  used  to  initialize  values  in  COMMON /SUB /and  COMMON/COMPD/ . 

The  maximum  number  of  various  input  values  in  COMMON/SUB/  are  established  using 

the  following  data  initialization  statement. 

DATA  i-INLINE  , MNEL, MNLEG , MNNODE  , MNP  LOT  , MNLPTS  , MD3 
+ /150, 99,70,55, 60,1500, 4500/ 

Maximum  and  minimum  values  for  each  individual  component  are  initialized 
in  COMMON/COMPD/  as  follows: 


DATA  LT/ 100*0/ 

DATA  LI 1/0, 4, 0,4, 0,0, 4, 2, 0,0/ 

DATA  LI 220/9 0*0/ 

DATA  L21/24,2,0,5,0,3,2,2,l,0/ 

DATA  L2 2/ 32, 8, 0,7, 0,4, 4, 2, 0,0/ 

DATA  L2 3/ 24, 2, 0,5, 0,3, 2, 2, 1,0/ 

DATA  L2 4 3 0/8, 12,0, 12,0,0,8,8,0,0,60*0/ 

DATA  L3 1/6, 6, 0,3, 0,1, 2, 2, 1,0/ 

DATA  L3 2/6, 5, 0,4, 0,0, 3, 3, 1,0/ 

DATA  L3 3/1 0,20, 0,3, 0,1, 2, 2, 1,0/ 

DATA  L34/20, 20,0,3,0, 2,2, 2,1,0/ 

DATA  L3 5 4 0/6 0*0/ 

DATA  L4 1/4, 0,0, 2, 0,1 ,2, 2, 1,0/ 

DATA  L4 25 0/9 0*0/ 

DATA  L5 1/3 7, 43, 0,10, 0,5, 3, 3, 1,0/ 

DATA  L52/1 0*  0/ 

DATA  L53/37, 31, 115,34,0,5,3,3,1,0/ 

DATA  L54/37,43,0,10,0,5, 3, 3, 1,0/ 

DATA  L5560/60*  0/ 

DATA  L6 1/2, 0,0, 12, 0,1, 10, 1,0,0/ 

DATA  L6 2/6, 10, 0,7, 0,2, 5, 2, 0,0/ 

DATA  L6  3/1 0 , 1 3 , 0 , 9 , 0 , 2 , 7 , 2 , 0 , 0/ 

DATA  L6  47  0/7  0*  0/ 

DATA  L7 1/  5 , 1 1 , 0 , 2 , 0 , 1 , 2 , 1 , 0 , 0/ 

DATA  L7 2/ 5, 11, 0,2, 0,1, 2, 1,0,0/ 

DATA  L7 3 8 0/8 0*0/ 

DATA  L8 1/8, 8, 0,2, 0,1, 2, 2, 1,0/ 

DATA  L8 2/ 24, 25, 0,8, 0,3, 6, 6, 0,0/ 

DATA  L8 3/3, 5, 0,4, 0,1, 4, 2,0,0/ 

DATA  L3 49 0/7 0* 0/ 

DATA  L9 1/0, 1001, 0,3, 0,0, 1,1, 0,0/ 

DATA  L9 29 3/91, 1,0, 5, 0,3, 0,0, 0,0, 24, 3, 0,5, 0,3, 0,0, 0,0/ 
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DATA  L9 49 5/1 0*0, 112, 15,0,7 , 0, 2, 0, 0,0,0/ 
DATA  L9 69 7/ 2 0*0/ 

DATA  L9 8/ 81, 1,0, 13, 0,2, 0,0, 0,0/ 

DATA  L99100/0, 50, 0, 12, 16*0/ 

DATA  LI 01/ 32, 20, 0,12, 0,2, 2, 2, 1,0/ 

DATA  LI 02/1 2, 15, 63, 3 2, 0,2,  2, 2, 1,0/ 

DATA  LI 03/40, 100, 0,12, 0,2, 6, 2, 0,0/ 

DATA  LI 0 4/ 5, 13, 0,5, 0,1, 2, 2, 1,0/ 

DATA  LI 05/ 40, 100, 0,12,0, 2,6, 2, 1,0/ 

DATA  L10 6/ 0,16, 0,15, 0,0, 6, 6, 1,0/ 

DATA  LI 07/ 2, 18, 0,15, 0,1, 6, 6, 1,0/ 

DATA  LE  N D/ 4 3 0 * 0/ 

END 
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3.3  COMMON  USAGE 


One  blank  and  one  labeled  common  statements  are  used  in  HYTR  program 
to  share  storage  and  pass  arguments  between  the  various  subroutines. 

1.  Blank  Common  is  used  to  pass  plot  and  steady  state  variables 

COMMON  NTELPL , NTOLPL , I PT , I POINT , N PTS , I N EL , KNLL , NTOPL , NLPLT ( 61, 3) , 

1 VSTORi:(  6150) 

2.  Common  SUB  is  used  to  pass  arguments  concerning  fluid,  time, 
constants,  addresses,  characteristics,  pressures,  flows,  comp c 

connections  and  program  input  limitations 

COMMON/SU3/PARM ( 150,9)  ,Poi(  1500)  ,QH(  1500)  , P(  300)  ,Q(  300)  ,C(  300) 

1, Z(  300)  ,UHO(  20)  ,S20Rti0(  20)  ,VISC{  20)  ,!3ULR(  20)  ,TEmP(  20)  ,PVAP(  20) 

2 ,  AT PRES , T , DELT , TFINAL , PLTDLL, PI, TITLE ( 20) ,LEGU,ICON 

3 ,  KTEMP ( 9 9 ) ,LSTART{150)  ,HLPT(150) ,LTYPt(99) ,NC(99)  , INK, I HZ 

4 , 1 NV , ISTEP , NLINE , NLL,  IND , I ENTR,  MN  LINL,  MilEL,  MM  LEG , MNNODE  , MNP  LOT 

5, MNLPTS , MOS 

Subroutine  COMP  uses  one  labeled  common  statement. 

Common  COMPD  Is  used  to  pass  variables  used  in  component  calculations 

COMMON/COMPL/Df  4500)  , L(  1500)  , Lt( 99, 4 ) 

The  maximum  input  limits  of  the  program  are  set  forth  in  BLOCK  DATA. 

In  order  to  increase  any  of  the  limits,  the  initialized  data  statement  in 
BLOCK  DATA  must  be  changed. 

Note;  The  maximum  number  of  lines  that  can  be  input  is  equal  to  the. 
dimension  of  the  C array  divided  by  2 minus  2 since  array  elements  MNLINE 
and  MNLINE-1  are  used  to  store  "blanked  off"  pressure  and  atmospheric 
pressure,  respectively. 
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It  should  be  noted  that  arrays  initially  allocate  storage  for  specific 
data  (e.g.,  PABM(N,1>  Is  input  line  length  for  line  N) . however  these 
arrays,  or  portions  of  these  arrays  are  frequently  "updated”  or  used  to 
store  entirely  different  data  as  the  program  progresses.  This  is 
quite  often  done  when  values  of  nr,  array  are  needed  only  for  the  early 
phases  of  the  program.  in  view  of  this,  the  followina  description  of 
Common  arrays  (and  variables)  may  only  apply  to  first  or  primary  usaae. 


Array  Initialisation  For  Components 
Used  In  BLKDTA 


Array  Location 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 


Number  of  real  data  points,  D(  ) 

Number  of  temporary  variables,  »T(  ) 

Number  of  double  precision  variables,  LD(  ) 
Number  of  integer  variables,  L(  ) 

Not  used 

Minimum  number  of  data  cards 
Maximum  number  of  connections 
Minimum  number  of  connections 
'onnection  default  O-Blocked 

1>  open  to  Atmosphere 


Not  used 
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3.3.1  Variables  NameQ 


Variable 

Description 

Unit 

ATPRES 

Atmospheric  Pressure 

PSIA 

BULK(  ) 

Adiabatic  Bulk  Modulus  of  Fluid 

PS1 

C(  ) 

Characteristic  Array 

PSI 

D<  ) 

Component  Real  Data  Array 

— 

DELT 

Program  Time  Step 

SEC 

IENTR 

Subroutine  Entry  Point  Indicator 

— 

IND 

Number  Assigned  to  Component  by  User 

— 

INEL 

Plot  Point  Address 

— 

INV 

Number  of  Component  Active  Connections 

— 

INX 

Counter 

— 

INZ 

Number  of  Elements  in  Leg 

— 

IPOINT 

Counter  for  Number  of  Points  Stored 

— 

IPT 

Counter 

— 

KNEL 

Plot  Number,  « 0 When  Plots  Are  Not  Required 

— 

L<  ) 

Component  Integer  Data  Array 

— 

LE  (N) 

Address  of  Real  Data  for  Component  N 

— 

LSTART(N) 

Address  of  the  First  Point  of  Line  N 

— 

LTYPE(N) 

Component  N Type 

— 

MNEL 

Maximum  Number  of  Components 

— 

MNLEG 

Maximum  Number  of  Legs 

— 

MNLINE 

Maximum  Number  of  Lines 

— 

MNLFTS 

Maximum  Number  of  Liixe  Points 

— 

MNNODE 

Maximum  Number  of  Nodes 
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Variable 


Unit 


MNP  LOT 
MPARME 
NC(N,I) 

NEL 
NLINE 
NLPLT (,  13 

NLPLT( ,2) 

NLPLT (, 3) 

NLPT(N) 

NPTS 

NTELPL 

NTOLPL 
NTOPL 
P(  ) 

PARM  (N , 1) 
FARM (N , 2 ) 
PARM (N, 3) 
PARM (N, 4) 
FARM (N , 5 ) 

PARM(N,6) 
PARM (N, 7) 


Description 

Maximum  Number  of  Plots 

Maximum  Number  of  Component  Real  Data  Values 

Line  Number  Attached  to  Connection  1 of  Com- 
ponent N,  and  Temporary  Storage  Area 

Number  of  Components  Input 
Number  of  Lines  Input 

Address  of  Pressure  or  Flow  to  be  Plotted 
in  DM(  ) & QM(  ) or  Component  Variable  in  D(  ) 

Line  Number  from  which  Pressures  and/or 
Flows  are  Plotted/or  Component  Number 

Point  of  Plots  - Distance  from  Upstream 

Line  End  in  DELX's/or  Component  Variable  Number 

Number  of  Line  Points  in  Line  N 

Number  of  Plot  Points 

Number  of  Element  Plots  Input  by 
User 

Number  of  Line  P3.ots 
Number  of  Total  Plots 
Array  of  Line  End  Pressures 


Length  of  Line  N IN 

I.D.  of  Line  N IN 

Wall  Thickness  of  Line  N IN 

Modulus  of  Elasticity  of  Line  N PSI 

Length  of  Characteristic  Line  Segment  IN 

for  Line  N 

Characteristic  Impedance  of  Line  N PS1/CIS 

Velocity  of  Sound  in  Line  N IN/SEC 


Variable 

Descrip cion 

Unit 

PABM(N,8) 

Laminar  Flow  Constant  of  Line  N for 
given  Diameter,  Viscosity  and  Density 

— 

PARM(N,9) 

Turbulent  Flow  Constant  of  Line  N 

for  Given  Diameter r Viscosity  and  Density 

— 

PI 

Constant  3.1416 

— 

PLTDEL 

Plot  Time  Interval 

SEC 

PM  ( j 

Array  of  Prespures  for  Points  of  all  Lines 

PS1A 

PVAP 

Vapor  Pressure 

PS1A 

Q ( ) 

Array  of  Line  End  Flows 

CIS 

QM(  ) 

Array  of  Flows  for  Points  of  all  Linar-i 

CIS 

RHO  ( ) 

Density  Array 

lb/sec2/in 

S20KH0  ( ) 

SQRT (2/RHO) Array 

— 

T 

Current  Main  Program  Calculation  Time 

SEC 

TEMP  ( ) 

Temperature  Array 

°F 

TFINAL 

Final  Calculation  Time 

SEC 

TITLE ( ) 

Program  Run  Title  Array 

— 

VISC(  ) 

Fluid  Viscosity  Array 

Ill2 /SEC 

V STORE ( ) 

Array  for  Storage  of  Line  and  Component 
Variable  Data  Required  for  Plotting 

— 

z ( ) 

Characteristic  Impedance  Array 

PSI/C1S 

3.3.2  Variables  Equivalenced  In  Common  «•  these  variables  which  share  the 
same  storage  as  the  VSTORE(  ) array,  are  used  in  the  steady  state 
section  of  the  program. 


Description 


Dimension 


IP(  ) 


Real  Data  Storage  for  LEGCAL  Variables 
and  Formulae 

Integer  Storage  for  Steady  State  and 
LEGCAL  Counters 

Same  as  above  in  CALC 

Leg  Element  Numbers,  Arranged  in  Pairs 

Calculated  Node  Pressures 

Same  as  above  in  CALC 

Overboard  Flo . From  Nodes 

Same  as  above  1 n CALC 

Equivalent  External  Pressure  Node 

Leg  Constant  Pressure  Drop 
(-PQLEG ( INEL , 5 ) 

Array  used  by  CALC  to  send  data  to  simult . 
returns  with  Node  Pressures  which  are  not 
always  in  the  same  sequence  as  the  Input  Data 

Counter  Array 

Leg  Conductances 

New  Predicted  LEG  Flow 

Node  Integer  Data 


Leg  Flow  Guess  used  for  Interation 
Only  in  the  SSDATA  Common 

Used  in  CALC  and  simult.  with  varying  dimensions 
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3.4  FLUID  SUBROUTINE 


Subroutine  FLUID  calculates  and  writes  the  fluid  density,  adiabatic 
bulk  modulus,  and  kinematic  viscosity  at  the  fluid  steady  state  temperatures 
and  pressures  specified  in  the  main  program  input  data.  Data 
are  currently  included  in  FLUID  for  three  hydraulic  fluids;  MIL-H-5606B , 

MIL-H-83282,  and  SKYDROL  500B.  FLUID  is  presently  dimensioned  to  accept  data 
on  three  additional  fluids.  Fluid  data  sources  and  calculation  of  properties 
are  discussed  in  Appendix  B,  along  with  tabulations  of  data  presently 
included  in  FLUID.  Data  sources  are  also  contained  in  the  FLUID  subroutine 
itself  via  comment  records.  Volume  1 of  this  report  describes  the  option 
whereby  the  user  may  specify  and  input  his  own  fluid  data  to  the  HSFR  program, 
if  the  user  desires  to  not  use  FLUID. 

The  FLUID  subroutine  argument  requires  the  input  data  values  for  the 
maximum  and  temperature  steps,  maximum  and  minimum  pressures  and  the  fluid  type 
identification  number.  Also,  the  argument  includes  the  variable  names  of  the 
three  fluid  properties,  since  they  are  not  in  "common".  Parameters  are  then 
dimensioned  for  nine  input  data  points  and  six  fluids.  Data  statements  are  then 
used  to  input  the  name  of  each  fluid,  the  nine  temperature  data  points  for  each 
fluid,  and  the  bulk  modulus  and  viscosity  data  corresponding  to  the  nine  temperature 
points  for  each  fluid.  Only  two  points  are  used  for  density  input  data  since  a 
straight  line  interpolation  is  used  over  the.  entire  temperature  range  for  density 
calculations. 

Subroutine  INTERP  is  then  called  to  estimate  the  fluid  property  value  at: 
the  actual  fluid  operating  temperature.  Viscosity  is  then  converted  from 
metric  (centistokes)  to  English  units  (newts).  Density,  bulk  modulus,  and 
viscosity  values  are  then  corrected  to  the  steady  state  operating  pressure 

Finally  FLUID  writes  the  computed  properties  before  returning  control 
to  the  main  program. 
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3.4.1  Math  Model  - Not  applicable 


3.4.3  Computation  Method  - FLUID  calls  subroutine  INTERP  (Ref.  paragraph  8.3) 
which  derives  the  fluid  property  at  operating  conditions  from  the  tables  of 


FLUID 

property  data. 

3.4.4 

Approximations 

- Not  applicable. 

3.4.5 

Limitations  - Not  applicable. 

3.4.6 

Variable  Names 

. 

SYMBOL 

NAME 

UNITS 

A 

Temperature  ratio 

- 

ABULK(- ,-) 

Array  for  ten  adiabatic  bulk 
modulus  input  data  points  for 
six  fluids 

PSI 

ATEMP 

Array  for  ten  temperature  data 
points  for  six  fluids 

°F 

AV1SC 

Array  for  ten  viscosity  input  data 
points  for  six  fluids 

CENT I STOKES 

B 

Viscosity  correction  exponent 

- 

BRHO 

Array  for  two  density  input  data 
points  for  six  fluids 

LB*SEC**2/ IN 

BTEMP(-) 

First  and  next  to  last  temperature 
input  points 

°F 

BULK(  ) 

Bulk  modulus  at  operating  conditions 

PSI 

COEFF 

Viscosity  correction  factor 

- 

IF 

Input  data  fluid  type  identification 
number 

- 

IFLUNM(-,-) 

Array  for  fluid  names 

- 

IK 

Number  of  input  temperature  points 

- 

IND 

Error  indicator 

- 

J 

Integer  counter 

- 

PRESS 

Input  data  fluid  operating  pressure 

PSIG 

I 

j 

I 

I 

f 

I 

3.4.6  Variable  Names  (Cont’d) 

| SYMBOL  NAME 

i Rjio C ) Density  at  operating  conditions 

TEMP  ( ) Input  data  fluid  operating  temperature 

Visc(  ) Viscosity  at  operating  conditions 


UNITS 

LBS*SEC**2/ IN 
IN* *2/ SEC 


I 
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3 . 4 . 7 Subroutine  Listing 

SUBROUTINE  FLUIO(TL..lP,DThi-.P,  PRESS , PRES R , I F , \/I SC  , 3ULN, KRO,  PVAP) 
C****  REVISED  3LPT  E.-U3EK  3,  1975  **** 

DIMENSION  ATEPiP(  10,6)  , AVISO  ( 10,6)  , ABULK  ( 1 0 , 6 ) , B RHO ( 2 , 6 ) , 
1BTLl'.P{  2)  , CO  I'.FF  { 6 ) , I FLUNil  ( 3,6)  ,IX(  6) 

2  , rLrtP{ 20) ,VISC( 20) ,KUO( 20) ,BULK( 20) ,PVAP{ 20) 

SECOND  SUBSCRIPT  OFFERS  TO  FLUID  TYPE  (IF  PARAilETLR ) 

DATA  I FLU  Nil/ 

1 4il  4H606  , 

2 4H  .ill,,  411-11-3,4113292, 

3 4USKYD,  4HROL  ,4.15003, 

4 9*411  / 

DATA  ATE.iP  / 

1- 65. ,-40. ,0. ,50. , 100. , 150. , 200. ,260. , 300. , 30O. , 

2- 6  5. ,-4  0. ,0. , 50. , 100. , 1 50. , 2 00. , 250. , 300. , 300.  , 

3- 65. ,-40. ,0. ,50. ,100. ,150. ,2O0. ,260. ,300. , 300. , 

430*10.  / 

DATA  UTEi.P  / 

1-65. ,275.  / 

FI  10,  DULY  AND  VI*-)  DATA  ARE  FOR  0.0  PSIG 

i’HO  DATA  SOURCE: 

1 — ii DC  REPORT  A 2 5 3 6 DATED  4/7  4 

2- ;, DC  Report  A 26-36  DATLD  d/74 

3 - .10  MS  ANTO  DATA  SHEET  DATED  6/67  ( DOUGLAS  HYD  i->A  I UAL) 

DATA  DR IIO  / 

13. 57E-5, 7.631-5, 

23. 49E-5, 7. 3L-5, 

310. 3L-5, 3. 91,-5,6*10./ 


BULR  DATA  SOURCE: 

1-  LETTER  TO  G.A.'IeS  I'KO  , .7  . v . NCOHAai  DA’l't  D 11/70 

2- TLCUUICAL  REPORT  AF.-.L-TR-7  3- 5 1 DATED  4/7  3 

3- LL.TTeP  TO  C . A. . I t:.E  FRO. i J . « . -IODNAi-1  DATi-.D  11/79 
DATA  ABLER  / 

1 3.  4 7L  5, 3. 25E  5, 2.91.5, 2.  481  5, 2.001.5, 1.7  31  5, 1 . 4 21  5 , 1 . 1 -)L  5 , . -iBi..  5 , 
A. 931,5, 

23.4  7L5, 3.  25E5, 2.91  5,  2. 4 8E5, 2.9.3L  5,  l.73i.5,  1 .4  21.5,  1.  19E5,  .9^L5, 

A . 9 R L 5 , 

34. 26L5, 4. 0 6i:,5,3.64E5,  3 . 1 31. 5 , 2 . 7 b5 , 2 . 29l  5 , 1 . 9 4e  5 , 1 . 6 2l:.  5 , 1 . 33)  5 , 
Al. 301.5,30*10.  / 

Vise  DATA  SOURCE: 

1- .iDC  RE  PORT  A 2 6 3 6 OATlD  4/74 

2- ,. DC  REPORT  A 2 6 3 6 DATED  4/7  4 

3- .lOHS.ANTO  DATA  SHEET  DATED  6/67  ( DOUGLAS  170  .IAN UAL) 
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n n 


3.4.7  (Continued) 

TATA  AVI3C  / 

11993. 5, 4 9 2. 3, 134. 4, 34. 85, 14. 47 ,7. 46 ,4. 58,3.19,2. 30, 2. 39, 

211446. 9, 2019. 3, 269, 45, 48. 87, 15. 95, 7. 46,4.24,2.33, 2. 04, 2. 04, 
33495.5,593.07,104.19,27.9,11.7,6.5,4.19,2.89,2.15,2.15, 

A 3 0 * 1 0 . / 

C 

DATA  IK/ 3*9, 3*10/ 

DATA  COlFF/  .335, .33, .42, 3*10./ 

C 

IF(l’K.LQ.O)  GO  TO  100 
DO  50  0=1,10 

TLi  .P(  J ) *TU;  P(  1 ) - ( J- 1 ) * DTl.iP 
Tl..I P{  .7  + 1 0)  =Tb. ,P(  .0  ) 

I*.I 

CALL  IVTLUP(  In..  i [’(  T)  , ATL,-iP(  1,  IK)  ,A.3l)LK(  1 . IF) , 20,  IK(  If)  , 
lT’JULK  , 10  0) 

CALL  I IT  LPP  (ThaPv  .1  ) , V3TL.iP,  'il<uO(  1 , IP)  ,10,2, 
lTPUu,  IIJO) 

CALL  I'471-.ai?  ( Tr,.;P(  7 ) ,AT1..,P(  1,IK)  ,AVI5C(  1,  V-')  ,11, 

1  IK(  IF)  ,'rVIiiC,  I!JO) 

CALL  IMTt.RP(  Tb.-iP(  J)  ,ATt,.P(  1,IF)  ,AVI3C(  1,IF)  ,12, 

1 I K ( IF)  , COl.F1*’  ( IF)  , I ii  I) ) 

VIsC  15  COJVLkTLD  FRO..  ClMTIoTOKLS  TO  NL..T5 
TVI  SC='1'V  I oC*  1.55  5L-  3 
C Di.LDITV,  VXSC  Ai'IO  r,.l  ILK  AKL  ADIUSTL')  TO  PPLJGURI  ’ PKL'oj  ' 

PKL.;*PRU>.'J 
"O  TO  70 
60  1=1+10 

P0f.L=>?RL5n 

70  COTi’IilUL 

6tllO(  T)=Tl<:90*£  l.+I-l<L.3/2. 8L5) 

•?ULK(  I ) *T 8IJLK+ 1 2 . * PKLIi 
A = 5 6 0 . / ( T 1 .?( J)  + 460.) 

P,=  ( (COlFF(  IF)  ) **A) *P9L3*2. 3L-4 
VT3C(  1 ) = TVI3C*t,X  P(  Pj) 

PV AP(  I)=2.  0 
I F ( I . L'l? . 1 1 ) GO  TO  6 0 
50  CO  ■'IT  L NU  L 

300  „•  R I T b ( 6 ,601)  ( IPL0.'l.i(  I , I F ) , 0=  1 , 3 ) , PPLG3 , PUL3U  , Tl:  ',P(  1)  .oriUP, 

1 visc(  i)  ,visc(  id  , uho(  i ) , r,uo'(  i i) , ouli(  l) , id  , 

2 PVAP(ll)  ,To..P(l) 

601  FOR.iAT(//16X,  15liFLOID  DATA  FOP  ,3A4,4iJ.  AT  ,F7.1,9D  P3IG,  - , 

1 F7.1,9H  PSIC  AW  D , F 6 . 1 , 7 h DLO  r ,4li  IT  ,F6.1,12H  DLG  F STL.  PD  ,//, 

2 35X,  1 4HVI3C05ITY  -,  L 1 0.  3 , 5X,  t 1 0. 3 , 0 i,  IN*  * 2/C  LC  ,//  , 

3 3SX,  1 4HDLN3ITY  - , M 0.  3 , 5X  , b 1 0.  3 , 170  ( L3-3  LC*  * 2 ) /I '4**  4 , // , 

4 3 5X  , 1 4 H3ULK  .-.UDULIPJ  - , b 1 0 . 3 . 5X,  L 1 O.  3 , 3i!  PG I , // , 

5 3 5Y  , 1 4 ilVAPQUU  PPI  0:3.-,  1. 1 0. 3, 41!  AT  ,F8.1,7il  DLG  »•'  ) 

GO  TO  222 

mo  COWTI  IUL 
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3.4.7  (Contined) 


WRITE  ( <5, 602}  ( IFLUNil(  .3,6)  , J-I,  3)  ,TLOP(  1)  ,VI.SC(  1)  ,RHO(  1)  , 3ULX(  1) 

G 02  FOPrlAT(//25X,  16H  FLUID  DATA  FOR  , 3A4,20H  AT  Pa  10  AL\’D,F6.1 

A7H  DUG  F ,//,35X, 

1 14HVI3COSITY  -/Ll0.3,2X,fMiINI**2/St,Cf/,35X, 

2 14HDLI-J3ITY  -,E10. 3, 2X,  1 7H(  LU-ULC*  * 2 ) /I  X**4, 

3 /,  35X,  14H3ULX  'lODiJLUS  - f L'10.  3 * 2X,  3HPUI  ) 

22?  COWTIHUL 

RLTUIIM 

Li'iD 
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4.0  STEADY  STATE  SUBROUTINES 


The  steady  state  subroutines  comprising  SSDATA,  CALC  and  LEGCAL  provide 
the  transient  section  with  the  distribution  of  pressures  and  flows  in  the 
sys  tern . 

The  steady  state  programs  need  to  know  bow  each  constant  flow  path  is 
connected,  where  the  flow  splits  and  adds,  and  where  there  is  a net  dis- 
placement or  overboard  flow. 

This  data  is  input  after  the  component  information.  The  input  data  used 
gives  great  flexibility  and  is  very  easy  to  modify. 

The  steady  state  program  can  cope  with  system  configurations  that  are 
very  complex  and  it  is  particularly  valuable  with  closed  loop  systems  and 
intertwined  flow  paths. 


4.1  SUBROUTINE  SSDAXA 


The  SSDATA  subroutine  reads  the  input  data  which  specifies  one  or  more 
system  configurations.  Each  system  is  input  arid  worked  on  separately. 

SSDATA  is  a simple  input  routine,  with  very  little  calculation.  The 
data  storage  is  divided  into  two  sections;  the  basic  leg  data  is  contained  in 
the  LCS  array,  and  the  elements  in  the  leg  are  stored  in  the  ILEG  array. 

When  all  the  data  has  been  read  in,  it  is  written  to  the  output  so  that 
a check  can  be  made  for  errors  in  each  data  field. 

The  subroutine  CALC  is  then  called  which  calculates  the  steady  state 
conditions  throughout  the  system.  After  the  call  to  the  CALC  subroutine, 
the  pressures  at  the  end  of  any  zero  flow  legs  iri  the  system  are  initialized 
to  the  proper  pressure. 

4.1.1  Math  Model  - Not  applicable. 

4.1.2  Assumptions  - Not  applicable.  , 

4.1.3  Computation  Method  - The  first  set  of  input  data  to  be  read  in  is  the 
number  of  nodes,  NNODE,  the  number  of  legs,  NLEG,  the  number  of  constant 
pressure  nodes,  NCPN,  the  number  of  zero  flow  legs,  N7.FLEG,  and  the  number 
of  systems,  NSYST. 

Subroutine  CALC  requires  a variable  size  array  with  an  NNODE  x NNODE 
dimension.  The  LCS  array  contains  the  leg  number,  the  upstream  and  down- 
stream node  numbers,  the  number  of  elements  in  the.  leg,  and  the  address  of 
the  leg  element  data  in  ILEG(  ) . Other  variables  in  LCS  are  used  as 
indicators  and  counters  by  LEGCAL. 

The  LEG  element  data  is  stored  in  ILEG(  ) in  data  pairs.  If  the  first 
value  is  equal  to  zero  the  second  is  the  line  number.  If  the  first  value, 
is  nonzero,  it  is  the  component  number  and  the  second  is  the  connection 
number.  There  are  LCS  (I,  5)  pairs  of  data  for  each  LEG  # 1 with  the  first 


value  stored  at  LCS  (I,  4)  In  ILEG. 

If  there  are  any  zero  flow  legs  in  the  system,  the  pressures  at  the 
leg  ends  are  initialised  to  the  appropriate  steady  state  pressures.  The 
up  and  downstream  pressures  and  flows  are  then  written  into  the  PM  and  QM 
arrays.  The  components  connected  to  the  zero  flow  legs  are  also  initialized 
accordingly , 

Should  there  be  more  than  one  system,  the  SSDATA  su’  routine  will  read 
in  all  the  data  for  the  new  system  and  compute  the  steady  state  flows  and 
pressures  and  initialize  all  the  zero  flow  legs. 

4.1.4  Assumptions  - Not  applicable. 

4.1.5  Limitations  - The  steady  state  data  is  essentially  a restatement  of 
previously  inputed  transient  data,  in  a form  that  can  be  followed  during  the 
steady  state  calculations.  A sorting  routine  would  eliminate  the  need  for 
inputing  steady  state  data,  by  generating  it  from  the  data  inputed  for  the 
system  components. 


4.1.6  Variable  Names 


Name 


I 

II 
JJ 
J 
K 

NCPN 

NLEG 

NNODE 

NSYST 

NZFLEG 


Description 
Do  Loop  Counter 
Do  Loop  Counter 
Number  of  Elements  in  a LEG 
L)o  Loop  Counter 
Address  Counter 

Number  of  Constant  Pressure  Nodes 

Number  of  LEGS 

Number  of  Nodes 

Number  of  Systems 

Number  of  Zero  Flow  Legs 
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4.1.7  Subroutine  Listing 


SUBROUTINE  SSDATA 
C****  REVISED  AUGUST  5,  1975  **** 

COMMON  UTELPL , NTOLPL , I PT , I POI NT , U PTS , INLL,  KHEL , NTOPL, N LPLT ( 6 1 , 3 ) , 

1 ?QLF;G(9  0,12)  , LCS( 90, 10)  ,IL£G{1400)  , PN(  90)  , QN(  9 0)  , PEX(  90) 

2 ,G( 90) 

3 ,0L(90) ,CALC1( 55,55) 

COMMON/ SUB/ PAR.l ( 150,9)  ,PM(  1500)  ,Q:-1(  1500)  ,P(  300)  ,Q(  300)  ,C(  3C0) 
1,2(300) , RHO( 20) ,S20RHO( 20) ,VISC( 20) ,SULK( 20) ,TEaP( 20) , PVAP( 20) 

2 ,  ATPRES , T , DELT , TP I NA L , PLTDLL, PI , TITLE (20) , LEGN , ICON 

3 , KTEHP(  99)  , LSTART(  150)  ,NL?T(150)  ,LTYPL(?9)  ,NC(99)  ,INX,INZ 
4 , 1 N V , ISTt  P , N LI  M E , S E L , I N D , I ENTR , MNLIN  E , ei: : LL , MU  LEG , UNNQD£ , UN  PLOT 
5 , MNLPTS  , MDS 

COMMON/  CO.  i PD/D  (4500), L(150n),LF.  (99,4) 

DATA  NZF/1/ 

****  P.LAD  THE  NU.13EW  OF  MODES , LEGS , AND  CONSTANT  PRESSURE 
NODES. 

50  CONTINUE 

Rt AD ( 5 , 5 0 ) NNODE , N LEG , NC  PK , N2  c LEG , N3YST 

no  k«o 

***  READ  IN  DATA  FOR  EACH  LEG 
DO  200  11  = 1 ,’iLEG 

P.EAD(  5,51)  (LCG(  II,J)  , J=1 , 3 ) , JJ, 0L( I I ) , ?QLLG( I I , 9 ) , 

l poles;  11,10) 

LC  S ( 1 1 , 7 ) = 1 
?QLEG( 1 1, 2) =0.0 
P3LF.G(  1 1, 11)  =0.0 

?DLEG(II,12)=0.0 
LCS(II,4)»JJ 
J J=J J*  2 

READ  LEG  ELEMENT  DATA 
RLAD( 5,60)  ( I LtG( K+J ) ,J=1, JJ) 

61  FORMAT (4I5,4F10.0) 

LCS ( I I , 5 ) =K+1 
200  ”=”+ J J 

****  vJRITE  OUT  THE  IMPUTED  DATA 

IF(NZF.EQ.O)  GO  TO  55 
WRITE (6,70)  HU ODE , N LEG , NC  PM 
55  WRITE (6,71) 

60  FORMAT (1615) 

70  FORMAT ( 1H1 , 5 5X , 23HSTEAOY  STATE  INPUT  DATA,//, 

1 30X,  17ilNUM3t;R  OF  NODES  = , 1 3 , 5X , 1 SUNOS 3ER  OF  LEGS  =,I3, 

2 5X , 3 5HNUUB&R  OF  CONSTANT  PRESSURE  MODES  =,I3,//) 

71  FORMAT ( 4 5X , 25JLEG  CONNECTION  INPUT  DATA, 

4 //  , 1 OX , 6HLEG  NO,  9X,  12I1MPST  NODE  MO,  4X,  12HDWST  NODE  NO,4X, 
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4.1.7  (Continued) 

5 1 4Hj'J0  OF  ELEMENTS, 5X,  1 OH  FLOW  GUESS,  5X,  10HUPST  PRESS, 5X, 

6 mii'OWST  PRESS ) 

WRITE( 6,80)  ( ( (LCS(I,J)  ,.7*1,4)  ,QL(I)  ,?QLEG(7,9)  , 

1  PQLEG(I, 10) ) ,I=1,NLEG) 

90  FORi'iAT(10X,I5,10X,I5,10X,I5,  10X , 15 , 9X, 5X, F10. 5 , 

1 5X,F10.5,5X,F10. 5) 

WRITE (6,90) 

P9  FORl-'AT(  1H0, 9X,  30HLEG  NO  LL  Eli  ENTS  IN  LEG ) 

DO  300  11=1, NLEG 
K=LCS (11,5) 

JJ=LCS(  II,4)*2-1+T< 

W9ITE( 6,152)  II,(ILEG(7) ,J=K,J7) 

300  CONTINUE 

152  FOP.iAT(10X, 13, 7X, 10(13, 3H  — , 1 3 , It! , ) ,// , 20X , 10{  1 0 ( I 3 , 3H  —,13,1.1, 
+ ,//,20X)  ) 

154  FORMAT ( 1K1, 50X , 3 19STEADY  STATE  CALCULATION  DATA  ,//, 

1 49.X,  3 3tl LEG  FOR! iU LAE  GENERATED  i3Y  LEGCAL  ,//, 

2 6X , 4 6HLLG  NUMBER — FLOW  GUE’SS-LOwiiR  LIWIT-UPPER  LIMIT  , 

3 50H-CONST  OELTP 0 TSPtl-?**l . 7 5Tl.»«4 0**2  T E Ri-i 

4 ,//) 

IF(WZF.EO.O)  GO  TO  380 
WRITii(6,154) 

C 

CALL  CALC ( UNODL , NLKG , CALC  1 , UCPN ) 

300  IF(NZFLEG.EO.O)  GO  TO  500 
IF  (NZF.EQ.O)  GO  TO  400 
NZF*0 

NRITE( 6,390)  NSFLLG 

390  FOH.,AT(  38X,  25HNUai3LR  OF  ZERO  FLOW  LEGS*,  13) 

N’LEG-WZFLLG 
GO  TO  110 
400  CONTINUE 

DO  450  1.1*1, KZFI.EG 
I 'ILL* 1 1 

?0LEG(  T : ■ F L , 1 ) = 0 . 0 0 0 0 Q 1 
P?LEG( INLL, 2) =1.0 
JJ=LC3( II, 2) 

IF ( LTY  PE  ( .7  7)  /l  9.  ME.  1 . AMD.  LTY Ph ( 7 J)  . N t . 9 2 ) WRITE  ( 6,999) 

I F ( LTY  PE  ( 7J ) / 1 0 . w w . 1 . AND . LTY  ?t  ( J J ) .XE.92)  STOP  410  5 
JJ=LL(J.7, 2) 

PPb G=D( J J) 

PQLf.G (I ML L, 11)  = PRF,S 
POLEG( INLL, 1 2) =PRLS 
IF ( PRES . EO. 0 . 0 ) WRITE (6,999) 

POP  FOR. i AT ( 1 9 X , 3 3 :1  P R OG R An  STOP  IN  SUBROUTINE  SSOATA) 

IP( PPES.EC.0.0)  STOP  4106 
J.J  = LCS( I MEL, 4) 

F=LCS(  Il'iLL,  5 ) 

J=T<+J  J*  2-1 
DO  4 50  I = N , J , 2 


j*  n " « * i s nj  f 
irk » i d.  ii  V usM  few  i>ai 


4.1-4 


4.1.7 


(Continued) 


ISD=ILEG(I) 

!'NLL=ILf.‘G(  1+1) 
IF(IND.L.Q.O)  GO  TO  430 
CALL  COi-.PE 
GO  TO  450 

430  I,'I1  = LSTART(  KNEL) 

IN 2=IN1+MLPT  ( KHEL)  -1 

P.-i(INl)»PRiiS 

PM( IM2) = PR£S 

O;-l(INl)=0.0 

QM(  I iSI  2 ) = 0 . 0 

450  CONTINUE 

500  IF(NSYST.EO.O)  RETURN 
NZF=1 
GO  TO  50 
END 


J?  $ m r 

p p V.  if 
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4.2  SUBROUTINE  CALC 


The  CALC  subroutine  is  responsible  for  the  steady  state  calculations  in 
the  system.  CALC  is  called  from  the  SSDATA  subroutine.  The  subroutine  will 
compute  the  pressures  at  all  the  system  nodes  and  flows  in  all  the  legs, 
using  pressure  drop  data  obtained  from  LEGCAL.  Figure  4.2-1  is  a generalized 
flow  diagram  of  CALC. 

On  entry  into  CALC  the  first  phase  performed  by  the  subroutine  will  be 
to  identify  any  constant  pressure  nodes  input  by  the  user  in  the  data  deck. 
This  procedure  is  necessary  to  initialize  the  appropriate  calculation  arrays. 
After  the  initialization,  the  confutation  phase  begins.  All  the  legs  will  be 
assigned  conductance  values  from  the  LEGCAL  subroutine.  These  conductance 
values,  along  with  constant  factors,  will  then  be  inserted  into  two  matrices. 
The  S1MULT  subroutine  will  be  called  to  compute  the  new  pressure  values. 

These  pressure  values  at  the  nodes  are  then  used  to  calculate  the  new  flow 
rates  for  the  legs  in  the  system.  When  all  the  flows  pass  the  convergence, 
test,  the  flows  and  pressures  are  written  to  r labeled  common  arrays  and 
program  control  is  passed  back  to  SSDATA.  If  the  number  of  iterations 
exceeds  50,  the  subroutine  also  terminates  with  the  most  recent  calculated 
values  of  flow  and  pressure. 

4.2.1  Math  Model  - The  development  of  the  CALC  subroutine  to  analyze  complex 
flow  systems  results  from  the  assumption  that  all  resistance  factors  in  a 
line  can  temporarily  be  assumed  linear.  The  net  flow  around  any  node  can 
then  be  written  as  the  sum  of  all  the  flows  entering  and  leaving  that  node 
or  Qnet  - G. 

If  is  a resistance  factor  used  to  describe  a resistance  in  a leg, 
then  “ ^Pi2^12' 
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FIGURE  4.2-1 

CALC  GENERALIZED  FLOW  DIAGRAM 


where : 


R^2  " Resistance  from  node  1 to  node  2 of  the  leg 

AP^2  “ Pressure  drop  from  node  1 to  node  2 of  the  leg 
Q^2  " Plow  in  the  leg 

Conductance  is  then  defined  as: 


where: 

G^  * Conductance  from  node  1 to  node  2 of  the  leg 

Then: 

0 *•  G P 

W12  12  12 

The  net  flow  at  any  node  (where  three  or  more  legs  come  together)  must  be 
zero. 


Therefore  the  flow  requirement  is  satisfied  if: 

cj  °1J  ‘Fi-  'j±"u>  - Vi  V° 


Where: 


!?•  ■ pressure  at  node  I 

P ■ pressure  at  node  J 

J 

AIJj^  “ a pressure  rise  or  loss  (from  a pump  or  actuator)  in  leg  1J 

Q ■ fixed  flow  in  leg  IK  connected  to  node  I 
IK 

Equations  of  the  above  form  are  input  to  a matrix  for  solution  of  pressures 
at  nodes.  These  matrix  solution  pressures  are  used  in  conjunction  with  the 
calculated  conductance  (G)  to  calculate  a new  flow  guess  in  each  leg.  When 
two  successive  flow  guesses  for  all  legs  in  the  system  are  within  a specific 
tolerance  such  as  .001  CIS,  the  solution  has  converged.  Refer  to  Appendix  A 
SSFAN  Technical  Manual,  MDC  A3059,  Vol.  II,  for  a more  detailed  mathematical 


development • 


4.2.2  CALC  Subroutine  Description  - The  CALC  subroutine  is  divided  into  two 


phases.  The  first  phase  deals  directly  with  the  input  data  for  constant 
pressure  node  identification.  Five  arrays  are  generated  which  are  used  in 
the  calculation  of  node  pressures  and  leg  flows  in  phase  two.  Specifically, 
these  arrays  are  NODEX,  an  array  of  external  constant  pressure  nodes, 

EXPRESS,  an  array  of  the  constant  pressure  node  values,  LEGEX,  the  legs 
connected  to  the  constant  pressure  nodes,  1SGN,  which  is  set  equal  to  +1  if 
the  constant  pressure  node  is  upstream  of  a leg  and  -1  if  it  is  downstream, 
and  PEX  which  is  set  to  a constant  value  for  every  external  pressure  node. 
Figure  4.2-2  describes  phase  one  operation.  If  there  are  no  constant 
pressure  nodes,  this  phase  is  omitted,  otherwise  PQLEG  (I,  9)  and  PQLEG  (I, 
10)  are  searched  for  any  constant  pressure  values.  If  the  constant  pressure 
is  in  an  upstream  node,  NODEX  (J)  is  set  equal  to  the  node  number,  the 
pressure  value  is  placed  into  EXPTUiSS  (J) , and  1SGN  (J)  1b  set  equal  to  1. 
Should  the  constant  pressure  be  in  a downstream  node  the  same  arrays  are 
filled  except  ISGN  (J)  is  set  to  a -1.  Also  for  any  constant  pressure  node 
found  in  PQLEG,  LEGEX  (J)  is  set  to  the  leg  number  and.  a constant  value  is 
added  to  PEX  (NODEX  (J)).  With  this  sort  completed  the  first  phase  of  CALC 
is  finished. 

Phase  two  operation  of  the  CALC  subroutine  begins  with  initializing  the 
conductance  matrix  - CALC.1,  and  the  constant  matrix  - QN , to  zero  values. 
(See  Figure  4.2-3  for  a flow  diagram  of  the  phase  two  operation.)  A cull  is 
now  made  to  the  subroutine  LEGCAL  for  each  leg  in  the  system.  The  total 
number  of  legs  is  passed  through  the  subroutine  argument.  LECCAL  will 
ret.urn  the  value  of  conductance  to  the  G array  in  the  unlabeled 
common. 

A1  er  all  the  conductance  values  are  calculated  for  each  leg,  they  must 
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be  entered  into  the  CALC1  matrix.  This  is  accomplished  by  a simple  DO  loop. 

The  main  diagonal  element  of  CALC1  contains  the  sum  of  all  the  leg  conduc- 
tances surrounding  a node,  Each  off-diagonal  element  equals  the  sum  of  all 
conductances  around  a node  for  multiple  legs  connected  to  common  nodes,  and 
for  the  remaining  legs  connected  to  the  same  node. 

The  QN  matrix  will  contain  the  constant  tarma  of  the  system  of  linear 
equations  that  describe  the  model.  Constant  pressure  drops  in  legs,  external 
flows  and  constant  pressure  sources  are  all  inserted  into  this  matrix.  Any 
constant  pressure  source  or  pressure  drop  is  multiplied  by  the  conductance  of 
the  leg  it  is  associated  with.  If  leg  (6)  has  a pressure  drop  term  - 
PQLEG(6,  5),  then  PQLEG(6,  5)  will  be  multiplied  by  the  conductance  for  leg  (6) 
which  is  G(6) , making  the  resulting  term  a flow.  Thus,  all  external  flows 
have  no  multiplication  factor. 

With  both  CALC1  and  QN  filled,  the  S1MULT  subroutine  is  called  to 
solve  for  pressures  in  the  system.  The  answers  are  returned  through  the 
QN  matrix  and  then  put  into  the  P array  which  contains  all  the  system 

pressures.  Now  a new  flow  is  calculated  for  each  leg  in  the  system  based 
on  the  recent  calculation  of  the  pressures.  The  new  flow  is  equal  to  the 
difference  of  pressures  between  the  nodes  of  the  leg  plus  any  constant 
pressure  drops  all  multiplied  by  the  conductance  of  the  leg. 

The  solution  for  flows  in  all  the  legs  are  final  when  all  the  previous 
flows  (Q)  and  the  latest  calculated  flows  (PLOW)  are  within  a specified 
tolerance.  For  all  flows  if 


ABS  (,FI,0W-Q(IT)> 
’ABS(FL0WK1 


<.001 


(1) 


then  the  flows  have  converged. 


If  equation  (1)  is  not  satisfied  in  each  leg  of  the  system  a new  value  of 
flow  will  be  computed  in  each  leg  by  the  following  equation: 

paw  - aistpa  (3> 

These  new  flows  will  then  be  given  to  LEGCAL  for  computation  of  new  conductance 
values  for  another  iteration.  If  all  the  legs  do  not  converge  after  fifty 
iterations,  the  cycle  will  stop  and  all  the  current  values  will  be  used  as  the 
steady-state  variables.  Before  transfer  is  made  back  to  SSDATA  a last  call  is 
made  to  LEGCAL  to  distribute  pressure  drops  and  flows  for  the  steady  state 
conditions. 

4.2.3  Computations.  The  only  direct  computation  made  in  the  solution  of  the. 
steady  state  values  in  CALC  is  the  calculation  of  FLOW.  The  purpose  of  this 
of  course,  is  to  establish  an  error  tolerance  in  flows  that  is  reduced 
through  iterations  to  meet  the  convergence  criteria  as  discussed  in  the 
previous  section.  The  majority  of  the  CALC  subroutine  handles  the  bookkeeping 
necessary  to  manipulate  the  leg  and  node  numbers  to  compute  system  pressures 
and  flows. 

4.2.4  Approximations ■ The  coefficients  of  the  CALC1  matrix  are  linearily 
approximated  to  represent  the  system  conductances.  Inherent  approximations 
exist  in  some  of  the  constant  data  in  QN. 

4.2.5  Limitations.  Most  limitations  exist  in  the  areas  of  physical  dis- 
continuities. CALC  was  written  to  solve  a flow  balance  in  a system.  Any 
flow  discontinuities  that  occur,  such  as  in  a simple  unbalanced  actuator,  must 
have  mathematical  formula  to  describe  what  happens  to  the  flow.  CALC  also 
requires  the  leg  pressure  drops  to  be  continuous  over  a specified  flow  range. 
When  this  does  not  occur,  as  in  a check  valve,  the  proper  input  from  the  check 
valve  subroutine  must  be  feed  to  CALC  so  Lt  may  respond  to  the  changed 
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conditions,  Please  refer  to  Appendix  D SSFAN  Technical  Manual  for  a more 
thorough  discussion  on  the  limitations  of  CALC. 


4.2.6  Variable 

Names 

Variables 

Description 

Dimensions 

CALC1 

M*M  matrix  of  conductances 

— 

EXPRESS 

Array  of  constant  pressures 

PS1 

FLOW 

Latest  value  of  leg  flow 

CIS 

G 

Array  of  conductances 

CIS/PSI 

IFAIL . 1FLAG 

Indicators 

— 

ILEP 

Array  of  leg  numbers  with  the  corresponding 
pressure  on  each  end 

— 

ISGN 

Array  giving  location  of  constant  pressure 
node  in  leg 
+1  - upstream 
-1  - downstream 

ITER 

Iteration  counter 

— 

LEGEX 

Array  of  leg  numbers  connected  to  constant 
pressure  nodes 

— 

M 

Number  of  nodes 

— 

ML 

Total  number  of  legs 

— 

NCPN 

Number  of  constant  pressure  nodes 

— 

NODEX 

Array  of  external  pressure  nodes 

— 

P 

Array  of  node  pressures 

PSI 

PQLEG  (J,  5) 

Location  of  pressure  drops  or  increases 

PSI 

PEX 

Array  of  external  pressure  constants 

PSI 

Q 

Array  of  leg  flows 

CIS 

QN 

Flow  gain  or  loss  at  a pressure  node 
changed  to  an  M matrix  of  constants 

CIS 
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4.2.7  Subroutine  Listing 

SUBROUTINE  CALC ( M , -viL,  CALC  1 , NCPN) 

C****  REVISED  AUGUST  5,  1^74  **** 

COIL-ION  NTE L PL , W TOL PL , I PT , I POINT, NPTS , INEL, KNEL,  NTO PL , N L PLT ( 6 1 , 3 ) , 

1 POLE  G ( 9 0 , 1 2 ) f ILEP(  0 0, 10)  ,ILEG(  1400)  ,P(90)  , Oil  (00)  ,PEX(00) 

2 ,G( 90) ,0(00) 

DI.-1F.NSION  CALC  1 { N , U ) ,NODEX( 10)  , EXPRESS ( 10)  , LEGLX(  10)  , ISGN( 10) 

DO  5 1 = 3,  H 
P(I)=0. 

5 PLX( I ) =0 . 0 
J=1 

DO  100  1 = 1 , i'lL 
IFLAG=0 

IF(POLEG(I,9).GT.O.)  GO  TO  110 
50  I F ( POLEG ( I , 1 0 ) . LE . 0 . ) GO  TO  100 

IF( IFLAG.EO. 1)  GO  TO  100 
IFLAG=1 

NOOF:X(  J)=ILEP(I,3) 

EXPRESS ( J ) = POLEG  ( 1,10) 

ISGM ( J ) =-l 
GO  TO  120 

110  NODE X ( J ) = I LEP ( I , 2 ) 

EXPRESS ( J ) =POLLG( 1,9) 

ISGN( J) =1 
120  LbG£X(J)=I 

PEX ( NODEX( 7) ) = 1 00 . 0+PLX ( NOOLX ( J ) ) 

J-J+l 
GO  TO  50 
100  CONTINUE 
ITER-1 

C INITIALIZE  CALC 1 AMO  OK  ARRAYS  TO  ZERO 

200  DO  220  Ll  = l,.-i 
DO  210  K 1 = 1 , t-i 
210  CALC1(L1,X1)=0. 

220  ON ( Ll ) =0 . 

C COriPUTE  G*S  FOR  CALC  ARRAYS 

CALL  LEGCAL(NL) 

DO  310  K = 1 , iiL 
I=ILEP(K,2) 

J=ILEP( K , 3 ) 

CALC  1(1,1) =C ALC l (1,1) +G( K ) 

CALC  1 ( J , J) =CALC 1 { J , 7 ) +G( K ) 

CALC  1 ( I , -7)  =CALC  1 ( I , J)  -G(  7.) 

CALC1(  J,  I)  =CALC1(  I,  J) 

310  CONTINUE 
C BUILD  ON  ARRAY 

DO  400  J X = 1 , i i L 

I F ( PQLEG { J X , 5 ) . EO . 0 . ) GO  TO  -100 
JY=I LLP( JX,  2) 

ON  ( .7  Y ) =ON  ( J Y ) - POLEG  ( j X , 5 ) * G ( .7 X ) 

JY=ILE?( JX, 3 ) 


on  on  n noon 
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QN ( JY)  =QN  ( JY ) +PQLEG(  JX, 5 ) *G{ JX) 

400  CONTINUE 

DO  30  1=1, a 

CALC1( I,I)=CALC1( I,I)+PEX( I) 

30  CONTINUE 

WRITE( 6 , 2005 ) ( ( CALC1 ( I , J) , J=1 ,rt) , 1=1 , M) 

WRITE ( 6,2005) (ON( I ) , 1=1 ,a) 

2005  F0RHAT( IX, 10E1 2. 5 ) 

WRITE(6,2005)(PEX{I) ,1=1, a) 

W RITE ( 6 , 2 0 0 5 ) ( PQLEG ( 1 , 5 ) , I = 1 , ril) 

2010  FORi'iAT(  IX,  10110). 

IF(NCPU.EQ.O)  GO  TO  610 
DO  .600  J=1,NCPN 
HX-NODEX(J) 

LX=LBGEX( J ) 

600  ON( NX )=ON ( MX) +ISGN( J) *n( LX) +EXPRESS ( J ) *1 00.0 
610  CONTINUE 

CALL  CXSOLV( CALC  1 , ON , A , KG ) 

DO  500  1=1, a 
500  P(I)=OM(I) 

CALCULATE  NEW  FLOW  RATES 
WRIT  t;(  6,9000)  (QN(I)  ,1-1, rt) 

WRITE  (6,0001) 

9000  FORaAT ( 1H0, ( 5X, 14HNODE  PRESSURES, 2X, 1F12. 3,/) ) 

9001  7ORWAT(  l'HO ) 

I FAI L=0 

DO  435  IT-1,. -1L 
IU=I LEP( IT, 2 ) 

IV=ILE?(IT,3) 

F LOW  = ( ( QN ( I rJ ) +PDLEG ( IT , 5 ) — QM (IV)  )*G(IT)  ) 

TEST  NEW  FLOW  RATES 

IF ( ASS ( FLOW-Q( IT) ) / ( ARS ( FLOW ) +1 . ) . GT .0.001) GO  TO  434 
RECALCULATE  FLOW  RATES 
0( I T ) = F LOW 
GO  TO  435 
431  I FAIL-1 

0 ( I T ) = ( Q ( I T ) +FLOv7 ) / ?. . 

435  CONTINUE 

IF ( IT6R.EO.50JGO  TO  520 
IF( IFAIL.EQ.0) GO  TO  520 
ITb‘R-ITER+1 
GO  TO  200 
520  CONTINUE 

IF ( ITER. EQ. 5 0 ) WRITE (6,9999) 

009  FORMAT ( 10X, 33 UEXC ELDED  50  ITERATIONS  IN  STEADY  STATE , 

+ 19IJ-PROGRAM  CONTINUING) 

rfAKE  A LAST  CALL  TO  ALL  LEGS  TO  DISTRIBUTE  PRESSURE 
DROPS  AMD  FLOWS  CALCULATED  FOR  STEADY  STATE  CONDITIONS 
KNEL=-1 

DO  5000  1=1, Ah 
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4.2.7  (Continued) 


5000  ILE?(I,7)=5 

CALL  LEGCAL(uL) 

RETURN 

END 


4.3  SUBROUTINE  LEGCAL 


LEGCAL  is  called  by  the  CALC  to  obtain  a leg  conductance  and  fixed 
pressure  drops  for  a given  flow  guess  for  a particular  leg. 

The  call  variable  ML  is  the  total  number  of  legs  in  the  system.  The 
constant  pressure  drop  such  as  that  across  a check  valve,  relief  valve, 
actuator,  or  pump,  is  passed  via  PQLEG(NLEG,  5)  in  common.  A positive 
PQLLG (NLEG,  5)  is  a pressure  rise  such  as  at  a pump,  a negative  is  a drop 
such  as  across  a check  valve.  The  leg  conductance  is  passed  via  G (NLEG) 
in  common . 

LEGCAL  has  two  ways  of  obtaining  these  values,  the  first  is  by  calling 
all  the  elements  in  the  leg.  The  second  is  by  using  a formulae  generated 
for  the  leg  previously. 

Using  the  formulae  is  the  most  efficient  way,  but  some  components 
which  have  external  references  such  as  actuators  and  reservoirs  require 
special  treatment.  An  indicator  system  is  set  up  to  determine  which  method 
should  be  used. 
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4.3.1  Theory 

LEGCAL  calls  the  elements  in  a leg  to  build  up  a formulae  for  pressure 

drop  for  a given  flow.  The  formulae  takes  the  form 

DELTP  - -PQLEG (NLEG , 5)  + (PQLEG (NLEG , 6) *Q 

+ PQLEG (NLEG , 7 ) *Q**1 . 75 
+ PQLEG {NLEG, 8) *Q**2  ) *QS 

Q is  the  absolute  value  of  the  flow  and  QS  the  sign 

PQLEG(NLEG,5)  is  the  constant  pressure  drop  (+  ve  for  gain,  - ve 
for  loss) 

PQLEG(NLEG,6)  is  the  constant  for  flow  dependent  loss 
PQLEG (NLEG, 7)  is  the  constant  for  turbulent  losses 

PQLEG (NLEG , 8)  is  the  constant  for  square  law  losses  such  as  orifices. 
The  formulae  is  valid  for 

PQLEG (NLEG ,4)  >Q  > PQLEG (NLEG, 3) 

If  LCS (NLEG, 6)  - QS  or  ZERO  and  LCS(NLEG,7)  is  not  equal  to  5 
The  leg  conductance  (inverse  of  resistance)  is  calculated  from  the 
leg  pressure  drop  formulae,  excluding  the  constant  pressure  drop  value 
G(NLEG)  - QS*Q/P 

where  P » QS* (PQLEG (NLEG , 6) *Q 

+PQLEG (NLEG , 7 ) *Q**1 . 75 
-HPQLEG(NLEG ,8) *Q**2)  . 

The  Q and  QS  have  been  left  in  for  clarity,  the  conductance  is  always 
positive. 

Using  this  formulae,  the  conductance  can  be  flow  dependent,  hence 


it  has  to  be  updated  whenever  the  flow  guess  is  changed. 
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4.3.2  Assumptions 

The  assumption  that  the  pressure  drop  can  be  described  using  the  formulae 
is  generally  valid.  If  for  some  reason  an  element  in  a leg  cannot  be  described 
in  this  manner  then  a pseudo  description  can  be  used  without  loss  of  accuracy. 

This  would  involve  taking  the  actual  pressure  drop  and  dividing  by  Q,  the 
result,  a pseudo  resistance,  would  then  be  added  in  to  PQLEG  (NLEG,6),  as  though 
it  were  a linear  function,  with  the  counters  set  to  prevent  re-use  of  the 
formulae  for  a different  flow  guess. 

4.3.3  Computation  Method 

The  variable  Ql,  the  new  flow  guess  is  first  split  into  its  absolute 
value  and  its  sign,  +1.0.  Tests  are  then  made  to  see  if  a flow  formulae 
exists  or  can  be  used. 

The  formulae  does  not  exist  if  PQLEG (NLEG , 2)  **  0.0 
and  cannot  be  used  if  LCS(NLEG,7)  ■ 5. 

Additional  tests  are  if  the  new  flow  is  within  the  formulae  flow 
range  such  that  PQLEG (NLEG,  3)  <_  Q <_  PQLEG(NLEG,4),  and  if  the  flow  sign  is 
acceptable  such  that  LCS(NLEG,6)*QS  >_  0,0. 

If  all  these  test  are  passed,  then  the  formulae  is  OK  and  can  be  used 
to  calculate  a new  conductance. 

If  not,  then  the  formulae  must  be  regenerated. 

The  first  thing  that  has  to  be  done  is  to  reset  the  counters  and  zero 
the  arrays.  The  new  formulae  is  then  built  up  by  calling  each  element,  in 
turn  starting  at  the  element  connected  to  the  upstream  node.  When  the  element 
is  a line,  it  is  taken  care  of  directly  without  a call  statement,  all  other 
components  are  called  via  their  steady  state  entry. 

The  variables  IND,  and  KNEL  are  the  component  number  and  the  connection 
number  respectively. 
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The  common  variables  1NZ  and  INX  are  set  equal  to  the  number  of  elements 
in  the  leg  and  the  actual  element  that  is  being  calculated  respectively. 

This  allows  particular  component  subroutines  to  determine  which  end  of  the 
leg  they  are  connected  to,  and  hence  which  node  is  located  at  the  component. 

4.3.4  Approximations 

The  use  of  a formulae  requires  some  approximations  but  these  are  usually 
related  to  approximations  in  the  component  model  and  are  an  integral  part  of 
the  componen  model.  In  general  we  think  this  method  is  quite  good  but  it 
could  be  easily  extended  to  a higher  order  approximation  if  it  was  found 
desirable. 

4.3.5  Limitations 

So  far  we  have  not  found  any  limitations  to  the  technique  used  in 
LEG CAL  itself. 

However,  some  of  the  component  subroutines  called  by  LEGCAL  such  as  the 
bootstrap  reservoir  pump  and  actuators,  are  complicated  by  the  interaction 
between  the  flow  guesses,  flow  direction  and  node  pressures . 

Some  of  these  subroutines  use  calculations  which,  though  conforming  to 
the  basic  calculation  technique,  do  not  fall  into  any  simple  category  and  have 
to  be  treated  individually. 


4.3.6  Variable  Names 


Variable 

DELTP 

1 

KNEL 

IND 

K 

ECS  4 
LCS5 
ML 

NTYPE 


Description 
Line  Pressure  Drop 
Ith  Element  in  a Leg 
Component  Connection  Number 
Component  or  Line  Number 
Do  Loop  Counter 
Number  of  Elements  in  Leg 
Address  of  Leg  Data  in  ILEG 
Total  Number  of  Legs 
Integer  of  Comp  Type  #/10 


V 

Q 

QT 

Q1 

QS 


Flow  Dependent  Leg  Pressure  Drop 

ABS  Value  of  Leg  Flow 

Leg  Trails!  tion  Flow 

Leg  Flow  Guess 

Flow  Sign  CIS 

For  variables  in  common  refer  to  Paragraph  3.3. 


Dimensions 

PS1 


PS1 


CIS 


CIS 


4.3-6 


no  o o o non  n o a 


4.3.7  Subroutine  Listing 


SUBROUTINE  LEGCAL  ( wL) 

C****  REVISED  AUGUST  5,  1975  **** 

CO.i.iOM  NTELPL, NTOLPL,  I PT,  I POINT, NPTS , INEL, KNLL, NTOPL, MLPLT(  61, 3 ) , 

1 POLf.G(90,12),LCS(90,10)  , ILRG( 1400) , PN( 90)  ,QN(90)  ,PEX(90) 

2 ,G( 90) ,OL(90) 

COHriOM/SU3/PAR.i  ( 150,9)  , P.l  ( 1500)  ,0«1(  1500;  , P(  300)  ,0(  300)  ,C(  300) 

1 , Z ( 3 0 0 ) , RHO(  20)  , S20RHO(  20)  ,VI3C(  20)  ,3ULK(  20)  ,TESP(  20)  ,?VAP(  20) 

2 ,  ATPRES , T , DELT , TFINAL, PLTDEL, PI , TITLE (20), LEGO , ICON 

3,  KTEViP(  99)  , LSTA  RT(  150)  ,NLPT(150)  ,LTYPE(">9)  ,WC(99)  ,INX,INZ 

4 , INV , ISTEP, NLINE , NEL, IND, I ENTF,  .474 LINE , ENEL,  EH  LEG , -i U NODE,  ,-i N PLOT 
5 , ilMLPTS  , ; i DS 

C FIND  THE;  SIGN  OF  THE  FLOW  GUESS  AMD  ITS  ABSOLUTE  VALUE 

DO  200  NLBG=l,rtL 
01=OL( NLEG) 

GA=A3S(01) 

IF(QA.LE. .00001) QA=. 00001 
?S =S  I Gf!(  1.0,01) 

CHECK  TO  SEE  IF  THE  FORMULAE  IS  VALID 

I F ( POL  EG  ( N LEG  ,2)  .E-%0.0.  OR . LCS  ( ,J  LEG , 7 ) . LO . 5 ) 

A GO  TO  400 

I F ( PULL G ( '4 LEG , 3 ) . GT . OA . OR . P0LLG ( N LEG , 4 ) . LT . OA ) GO  TO  4 0 0 
IF ( LCS ( NLEG , 0 ) ) 5,1000,7 
5 IF (OS.LT.0.0)  GO  TO  1000 
GO  TO  400 

7 I F ( OS . GE . 0 . 0 ) GO  TO  1000 

RESET  VARIABLES  AND  COUNTERS 

400  CONTINUE 
POLEG( NLEG, 1 ) =OA 
P0LEG(NLEG,2)=DS 
PDLEG ( N LEG , 3 ) = 0 . 0 
POLEG( NLEG, 4 ) =1 . 0L6 
DO  4 01  -N=6,9 

P0LLG ( NLEG, W-l) =0.0 

401  LCS ( NLEG , N ) =0 

CALCULATE  THE  FORMULAE  FOR  THE  LEG  PRESSURE  DROP 

LCS (NLEG, 7 ) =1 
I ME L= NLEG 
LCS4=LCS( NLEG, 4 ) 

LCS 5= LCS ( NLEG, 5) 

PQLEG ( N LEG ,11)  = PM { LCS ( N LEG , 2 ) ) 

POLEG ( N Lfc G , 1 2 ) = PrJ ( LCS ( N'LuG,  3 ) ) 

I i I Z = LC  S 4 

CALL  EACH  RLE,  IE  MV  IN  THE  LEG 


BE, 


ti  V l"  fc!  LMi>LL 
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(Continued) 


00  600  K=l,LC3t 
I=LCS5+{  K-l ) *2 
IHX-K 

I '■3U=I  LbG(  I ) 

KKLL-ILLG(I+1) 

IF  THE  LLcriLKT  13  A LIML  CO  TO  500 
IF ( INO.EO.O)  GO  fO  500 
CALL  CO.’lPb 
CO  TO  600 

***  THIS  SECTION  A 003  THE  VALUES  ISTO  TrJL  FOA-iOLAL  FOA  Tnl.  LI  I 

500  CONTINUE 

OT»PAAiu(A'MEL,4) 

I F ( OA . GT . QT ) GO  TO  505 

IF(6t.LT.PCLLG("{LEG,4)  ) P0LlG(\*LlG,4)=0T 
POLLG  ( U LIS  C , 6 ) = PA  A.  i ( KM£  L , 0 ) + POLES  ( I*  LEG , 5 } 

Db  LT  P»QA  * as  * PA  AS  ( '<NLL,S) 

GO  TO  595 

305  IF(OT.GT.  P?LLO(riLLG,  3)  ) P0LL'G(  SLUG,  3)  =r*T 
[OLEG ( \h LEG , 7 ) = ?A Ur. ( OH t.L,  9)  +POLi,G(  ,* LOG , 7 ) 

CL LT P=  ?A  R.  i { !< K I.  L , 9 ) * Ori * ?A*  *1.75 
500  CO. 'IT I SUL 

( LST.A  RT(  KNEE)  ) =POLfcG(  0 LrO,  1 1 ) 

POLr. G ( M Li-.G  ,11)  = PC'LtG { tf Lfc.C, ,11)  -DLL'"? 

P.  i ( LS  T A AT  ( K;  3 cL ) +«  L?  7 ( K •:3  CL)  -1 ) = POL  EG  ( •<  Lr.G  ,11) 

■yi(  LSTA RT(  K13LL)  ) *->\*03 
0:i(  LSTART(  KHLL)  +--?L?T(  A'ivLL)  -1 ) =PA*CS 
600  CO ST I SUL 

T HE  FOP.*!  U LAC  FOR  OLLT  A P CA«  It  USED 
1000  COrtTIMUC 

G(  leg ) = 1 . 0/  ( POLF.G{  :<  LLG , 6 )+PC;LLG(  >i LEG , 7 ) *0A*  * . 7 5+PCLi. C(  .1  Lt 
POLLG  ( L’  LL G , 1 ) = OA 
PCLF.GfNLLG,  2)=O0 

WRTTL(  5,50)  MLCG,?1,(F0Li:G(-'3LLG,I)  ,1  = 3,5)  ,G(  3 LEG) 

50  FOR. i.AT(  1 3f1  LLG  MO  , I 3 , 7F1 2 . 3 , L 20.  0 ) 

200  COSTINGS 
RLT’JKil 
LSI) 


W.i- 
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5.0  LINE  AMD  ASSOCIATED  SUBPROGRAMS 


Subroutine  LINE  and  associated  subprogram  calculates  the  flow  and 
pressure  conditions  fo  • all  interior  points  within  the  line. 

The  values  of  the  flows  and  pressures  at  the  ends  of  the  line  are  calcu- 
lated in  the  applicable  component  subroutine. 

Line  is  called  by  the  main  program  at  the  beginning  of  each  new  time  step 
and  calculates  new  values  of  pressures  and  flows.  Line  uses  FRIC  and  DFRICD 
functions  to  calculate  the  steady  state  friction  and  dynamic  friction  pressure 
drops . 

The  theory  of  the  method  of  characteristics  has  been  extensively 
documented,  but  is  often  described  in  terms  that  are  not  readily  understandable. 

For  convenience,  a summary  of  the  method  is  given  in  paragraph  5.1.1. 


A detailed  derivation  is  given  in  Appendix  A. 


s n-i 


j 


5.1  SUBROUTINE  LINE 


LINE  divides  each  line  into  segments,  the  length  of  each  segment  being 
greater  than  or  equal  to  the  velocity  of  sound  in  fluid  multiplied  by  the 
time  step,  DELT.  LINE  then  calculates  the  flows  and  pressures  for  all  the 
interior  line  points  as  well  as  the  end  point  characteristics.  These 
characteristics  are  subsequently  used  by  component  subroutines  to  calculate 
pressures  and  flows  at  the  ends  of  each  line  where  the  lines  and  components 
interface. 

5.1.1  Math  Model 

The  equation  of  motion  and  the  continuity  equation,  describing  the 
one-dimensional  unsteady  flow  of  a compressible  fluid  in  an  elastic  fluid 
line,  equations  (1)  and  (2),  involve  the  actual  distributed  parameters 
and  include  the  nonlinear  viscous  terms.  These  partial  differential  equations 
are  transformed  into  total  differential  equations  by  use  of  the  method 
of  characteristics.  A finite  difference  method  is  then  used  to  place  the 
total  differential  equations  in  a form  suitable  for  numerical  solution  on 
a digital  computer, 
basic  Equations 
The  equation  of  motion  is: 


9P 

3X 


+ 


m * as. 

A 3t 


+ F (q)  = 0 


CD 


The  condition  of  continuity  yields: 


3Q  + A . * JUL 

3X  RHO*  a**2  3t 


0 


(2) 


where 

P » Pressure 

psia 

Q - Flow 

cis 

A - Flow  area  of  line 

in2 

t « Time 

sec 
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RHO  **  Fluid  mass  density  (lb-sec**2) /in. **4 

F (Q)  - Pressure  loss  as  a function  of  flow  psi 

a - speed  of  the  wave  propagation  « (BULK/RH0)*l/2  in. /sec 
BULK  - Bulk  modulus  of  the  fluid  psi 

X ■ Distance  along  line  ' in. 

Method  of  Characteristics 

The  basic  equations  (1)  and  (2)  can  be  transformed  into  a pair  of  total 
differential  equations,  the  validity  of  which  is  restricted  to  certain  lines 
in  the  x-t  plane  called  the  characteristics.  Integration  along  the 
characteristics.  Fig.  5.1-1,  yields  the  following  algebraic  equations. 

For  convenience  let 

RHO*  a 

2 ‘ -T" 

(the  number,  Zc>  is  the  characteristic  impedance  of  a frictionless  line)  and 
let 


left: 

cl“ 

?vw  - z*Qvw 

■HiA-L  [p (qWT) 

+ F(QVW)](3) 

right : 

CR  “ 

pwx~z*Qwx  + 

[p(Qwi') 

+ FCQ^)  ] (4) 

P + 

ZQP  - 

CR“  ° 

(5) 

CR  = 

PWT  " 

Z * Qyj 

PP  - 

zc^p  - 

- CL  = 0 

(6) 

CL  * 

PWT  + 

z *Qwt 

fwt  s 

= + 5i_ 

+ CL 
2 

(7) 

Q,,„,  * 

■ CL  - 

Cr 

SWT 

2*Z 

(8) 

s 1-9 


FIGURE  5.1-1  GRID  OF  CHARACTERISTICS  WITH 
INTERPOLATION 

Equations  (7)  and  (8)  apply  only  to  the  interior  sections  of  the  fluid 
line.  Points  at  the  boundary  use  only  one  of  the  characteristic  equations 
to  be  solved  simultaneously  with  the  boundary  condition.  CR  and  are 
still  functions  of  the  unknown,  QwT.  Therefore,  an  iteration  is  used  to 
calculate  Cg  and  Cl  are  first  determined  using  only  a rectangular 

rule  to  approximate  the  friction. 


CL  - I’vw  +Z*QVW  - a*At*F(Qvw) 

(3a) 

CR  “ pwx  - £*Qwx+a*At*F(Qwx) 

(4a) 

This  gives  a very  close  approximation  of  Qp,  which  then  can  be  improved 
by  using  the  trapezoidal  rule  to  evaluate  and  C^. 

There  are  two  ways  to  apply  these  equations  to  a line  system:  either 

one  has  to  modify  the  wave  speeds  slightly  to  make  n ■ L/ (a*At)  an  integer 
in  each  individual  line  (L  is  the  length  of  a line) , or  one  has  to  use  the 
interpolating  grid  of  Fig.  5,1-1  which  has  been  applied  in  11YTRAN  and  is  discussed 
in  more  detail  by  Streeter  and  Wylie  (5), 


FIGURE  5.1-2  CHARACTERISTICS  IN  X,t  PLANE 

5.1.2  Assumptions 

1.  Transition  from  laminar  to  turbulent  flow  is  assumed  to  occur  at  a 
Reynolds  number  of  1200. 

2.  Friction  factors  used  are  based  on  circular  cross-section,  smooth 
I.D.,  drawn  tubing. 

3.  See  Appendix  A for  assumptions  associated  with  method  of  chararter- 
istics. 

5.1.3  Computation  Methods 
Section  1000 

The  type  of  line  N is  isolated  and  the  speed  of  sound  and  characteristic 
impedance  are  calculated 

IF (LDN (N, 1) .EQ. 1)  GO  to  70 
A = 1. 8* (FARM (N, 3)+PARM (N, 2)/ 2.0)*BULK(IT) 

A = BULK.  (IT) /RHO (IT) * (1 • Of A/ (PARM(N, 4)*PARM(N , 3) ) ) ) 

GO  to  75 

70  BULKH  = BULK (IT) *PaRM (N , 4) / (BUL1C(IT)+PARM(N , 4)  ) 

A >=  BULKH/RHO(IT) 

75  A=SQRT(A) 

PARM(N  ,6)  ■=  RHO(IT) *A*4 . 0/  (PI*PARM(N , 2)  **2) 


If  the  speed  of  sound  is  not  large  enough  to  produce  two  line  points,  a 
fix-up  is  taken  and  the  percent  error  in  the  adjusted  speed  of  sound  is 
printed 

CONST  - I' ARM  (N , 1 ) /DELT 

IF (CONST. GE. A)  GO  to  78 

PC  =■  100.-C0NST*100./A 

WRITE (6, 300 )N, PC 

A » CONST 

78  PARM(i'1, 7)  - A 

NLPT(N)  - CONST/A+1.0I 

DELX  is  then  calculated 

PARM(N,5)  - PAKM(N,1)/ (NLPT(N)-l) 

Equivalent  line  length  of  bends  and  fittings  is  calculated  for  line  N 
EQUIVL  - PARM(N, 2)* (LDN (N, 3) *12+ 

LDN  (N , 4 ) *5  7 . O+LDN  (N , 5 ) / 45 . * 

4 .65+LDN (N, 6)/90. *7 . 5) 

The  equivalent  line  length  is  then  added  to  the  actual  lino,  length  and 
is  used  to  calculate  the  laminar  and  turbulent  flow  constants 
PARK(N,  8)  - 128.  /PI*VISC  (IT)*RU0(IT)  / (DIA**4.  )* 

(PARM (N , 1 ) +EQU I VL ) 

FARM (N,  9)  - . 213*RI10  (IT) * (VISC** . 25)  / (DIA**4 .75) 

* (PARM (N, 1)+EQUIVL) 

The  above  steps  are  repeated  until  the  data  for  all  lines  are  calculated. 

This  data  la  then  printed.  A constant  for  subsequent  interpolation  calcula- 
tions. transition  flow  and  address  of  line  points  are  calculated  and  stored  for 
each  line.  Finally,  variables  used  for  plugged  and  open  connections  are  initialized. 

Dynamic  friction  entry  DYFRI  is  called  to  calculate  and  store  line 
constants  for  the  dynamic  pressure  loss  equation.  The  returned  valua 
of  DYFRI  ia  not  used. 


5.1-5 


Section.  1000 


READ  LINE  INPUT  hWA. 
CALCULATE  SPEED  OF  SOUND  (A)  AND 
CHARACTERISTIC  IMPEDANCE  FOR  LINE  N 


CALCULATE  SPEED  OF  SOUND  (Al)  NECESSARY 
FOR  2 INTERIOR  LINE  POINTS.  STORE  WHICH- 
EVER VALUE  (A  OR  Al)  IS  LARGER.  PRINT 
PERCENT  ERROR  IN  SPEED  OF  SOUND  IF  Al  IS 
USED 


CALCULATE  DELX,  EQUIVALENT  LINE  LENGTH, 
LAMINAR  AND  TURBULENT  FLOW  CONSTANTS 
FOR  LINE  N.  STORE  DELX  AND  FLOW 
CONSTANTS. 


I IS  N EQUAL  TO  NLINE? 


PRINT  LINE  DATA 


N - 0 


CALCULATE  AND  STORE  INTERPOLATION  CONSTANT,  TRANSI- 
TION FLOW  AND  ADDRESS  OF  LINE  POINTS  FOR  LINE  N 


I.S  N EQUAL  TO  NLINE? 


INITIALIZE  VARIABLES  FOR  OPENED  AND 
CLOSED  CONNECTIONS 


RETURN  I 

FIGURE  5.1-3  LINE  SUBROUTINE  FLOW  DIAGRAM 


5.1-6 


Section  2000 


INO 

- 0 

INO  - 

INO+1 

UPDATE  TURBULENT  AND  LAMINAR  FLOW  CON- 
STANTS TO  ALLOW  CALCULATION  OF  FRICTION 
FOR  VEL  OF  SOUND  *DELT  LENGTH  FOR  LINE 
IND 


DIVIDE  FLOW  AMD  PRESSURE  DIFFERENC]  OF 
LINE  IND  BY  NLPT  (r.!Ti»-l 


1 - 

i | 

I - 

1+1 

CALCUIATE  AND  STORE  PRESSURE  AND  FLOW 
FOR  INTERIOR  POINT  I OF  LINE  IND 


IS  I EQUAL  TO  NLPT (IND)-l?  NO' 


CALCULATE  AND  STORE  UPSTREAM  AND  DOWN- 
STREAM END  CHARACTERISTICS  FOR  LINE  IND 


IIS  INO  EQUAL  TO  NLINE?  J NO- 


FIGURE  5.1-3  CONT. 


5.1-7 


Section  3000 


INO 

- 0 

“1 

1 

j 

■INO  - 

INCH-1 

CALCULATE  AND  STORE  UPSTREAM  AND  DOWN- 
STREAM END  CHARACTERISTICS  FOR  LINE  IND 


IS  NLPl(INO)  EQUAL  TO  2? 


NPT  = 2 


INTERPOLATE  PRESSURES  AND  FLOWS  ON  THE 
UPSTREAM  AND  DOWNSTREAM  SIDES 


CALL  FRIC.  (PASS 

UPSTREAM  FLOW) 

CALL  FRIC  (PASS 

DOWNSTREAM  FLOW) 

CALL  DYFRICD 


CALCULATE  LEFT  AND  RIGHT  R'.JNNING 
CHARACTERISTICS 


CALCULATE  PRESSURES  AND  FLOWS  FOR  POINT 
NPT 


CALL  FRIC  (PASS  NEW  FLOW) 
CALL  DYFRICU  (PASS  DELTA  FLOW) 
I RECALCULATE  CHARACTERISTICS 


RECALCULATE  PRESSURES  AND  FLOWS  FOR 
POINT  NPT 


CALL  DYFRICU  (PASS  DELTA  FLOW) 


'1GURE  5.1-3  CONT. 
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Section  2000 


The  laminar  and  turbulent  flow  constants  are  updated  to  allow 
calculation  of  pressure  drop  for  velocity  of  sound  * DELT  length  of 
each  line. 

P Aid-1  (IND , 8) -PARI1(IND . 8)  *PARM  (IND  . 7 ) *l)liLT /PARM  (IND , 1 ) 

P ARM  ( IND , 9 ) -PARM (IND , 9 ) *PARM ( IND , 7 ) *DELT / P ARM (IND , 1 ) 

Hie  pressure  and  flow  differences  for  each  line  are  divided  by  the  number 
of  line  increments  (number  of  line  points  -1) . 

DELP  = (PPMl  - PPM2) / (N-l) 

DELQ  - (QQM1  - QQM2)/(N-1) 

Tlie  pressures  and  flows  are  next  calculated  and  stored  for  each 
interior  line  point.  Pressures  and  flows  on  the  upstream  and  downstream 
sides  are  interpolated  then  upstream  and  downstream  end  point  characteristics 
are  calculated  and  stored  for  all  lines 

C(LUP)  = 1’IM  -7,C*QP1  +FR1  C (OP  1 ) 

C(LDWN)  - PMI+ZC*QMI-FR1C  (QMI.) 

Section  3030 

A DO  loop  is  used  to  calculate  the  values  for  each  line. 

DO  140  IN'  - 1,  NL1NK 

Pressures  and  flows  -n  the  upstream  and  downstream  sides  are  interpolated  . 
PPI  = PM(M)  -FARM (IND , 3) * (PM (M) -PM(M+1 ) ) 

QP1  = QM(M)  -PARM  (IND , 3)*  (QM  (M)  -QM (M+I)  ) 

PM  I = PM(M+N-1)  -PARM  (IND  ,3)*  (PM(M-t-N-l)  -l’M(M+N-2)  ) 

QMI  - QM(M+N~1) -PARM (IND ,3)* (QM(M+N-1) -QM (M+N-2) ) 


5.1-10 


Upstream  and  downstream  end  point  characteristics  are  calculated  and 
stored. 

C(1N0*2-1)  - PPI-ZC*QPI+FRIC(QPI) 

C (IND*2)  « PMI+ZC*QMI-FRIC (QMI) 

If  there  are  only  2 points  for  the  given  line,  control  then  passes  to  the 
end  of  the  DO  loop. 

IF  (N.LE. 2)  GO  to  140 

If  there  are  interior  points,  the  flows  and  pressures  it  these  points  are 
then  calculated.  Pressures  and  flows  on  the  upstream  and  downstream  sides 
of  interior  point  NPT  are  interpolated  and  steady  state  friction  for  each 
of  these  flows  is  calculated  by  calling  FRIC  . 

FRICM  - FRIC(QMI) 

FR1CP  - FRIC(QPI) 

The  decayed  dynamic  friction  value  la  calculated  by  calling  DFR1CD  . 

UYFR1C  - UFRICD(qMI,MPT,JJ,M) 

The  characteristics  are  now  calculated  for  interior  point  NPT. 

CL  - +PMI+ZC*qMI-FRICM-DYl RIC 
CR  - +PPT.-ZC*QPI+FRICP+DYFRIC 

The  first  approximation  of  the  pressure  and  flow  at  point  NPT  are  calculated  . 
P (NPT)  - (CR+CL) /2 . 
q (NPT)  - (CL-CR)/ (2,*ZC) 

Friction  is  recalculated  us  ag  the  new  flow  . 

FRICR-FRIC  (Q (NPT)) 

Dynamic  friction  is  updated  using  the  difference  between  new  and  old  flows. 
DYFRIC-DFRICU (DELq ,MPT , JJ ,M) 


The  characteristics  are  updated  using  the  average  of  the  new  and  old 
values  of  friction  along  with  updated  dynamic  friction. 

CL  - CL4(FRIC.M-FRICR)/2.  - DYFRIC 
CR  - CR+(FRICR-FRICP)/2.  + DYFRIC 

The  pressure,  flow  and  dynamic  friction  are  calculated  a final  time. 
P(NPT)  - 4-  (CR+CL)  /2 
Q(NPT)  - (CL-CtO/2.*ZC) 

DYFRIC  - DFRICU (DELQ,MPT,JJ,M) 

Once  the  pressures  and  flows  for  all  points  have  been  calculated,  they 
are  stored  in  the  PM  and  QM  arrays. 

DO  130  1-2,  NPLINE 
PM(M-t-l-l)  - P(I) 

QM  (M+  i-1)  ■*  Q (1) 

130  CONTINUE 

5.1.4  Approximations 
See  Appendix  A 

5.1.5  Limitations 
See  Appendix  A 

5.1.6  Variable  Names 


A 

Velocity  of  Sound  in  Fluid 

IN/ SEC 

BUUU1 

Equivalent  Bulk  Modulus  of  Hose 

PSI 

CL 

1 

Left  Running  Characteristic 

PSI 

CONST 

Constant-Line  Length/DELT 

IN/ SEC 

CR 

Right  Running  Characteristic 

PSI 

DELP 

Pressure  Drop  for  DELX  l.ength 

PSI 

DELQ 

Flow  Difference  for  DELX  Length 

CIS 

DIA 

Line  I.D. 

IN 

DYFRIC 

Dynamic  Friction 

PSI 

EQU1VL 

Equivalent  Length  of  Line 

IN 

FR1CM 

Pressure  Drop  for  DELX  Length  UBing  Flow  QMI 

PSI 

FRIO? 

Pressure  Drop  for  DELX  Length  Using  Flow  QP1 

PSI 

FRTCR 

Pressure  Drop  for  DELX  Length  Using  Flow  Q (NPT) 

PFI 

I'j. 

Fluid  Temp /Pressure  Number 

— 

INO 

Counter 

— 

JJ 

LSTART ( 1ND) +NLP  T(1ND)-1 

— 

LDWN 

Downatream  Line  End  Address 

— 

LLPT 

NLPT(1ND)-1 

— 

LU1> 

Upstream  Line  End  Address 

— 

M 

Dummy  Variable 

— 

MPMl 

Address  of  Current  Upstream  Line  Point 

— 

MPP1 

Address  of  Current  Downatream  Line  Point 

■ i 

MPT 

Address  LSTART ( 1ND)+1 

— 

N 

Counter 

— 

NPI.INE 

NLFT(IND) -1 

— 

NPT 

Current  Interior  Line  Point 

PSI 

PC 

Percent  Error 

— 

PLAST 

Past  Pressure  Value 

PSI 

PMI 

Interpolated  Pressure  on  the  Upstream  Side 

PSI 

PP1 

Interpoloated  Pressure  on  the  Downstream  Side 

PSI 

PPM1 

Dummy  Variable 

— 

PPM2 

Dummy  Var  tab le 

— 

QLAST 

l'aut  Flow  Value 

QM1 

Interpolated  Flow 

on  the  Upstream  Side 

QPT. 

Interpolated  Flow 

on  the  Downatream  Side 

QQM1 

Dummy  Variable 

QQM2 

Dummy  Variable 

REN 

Keynolde  Number 

ZC 

Dummy  Variable 
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5.1,7  Subroutine  Listing 


n 


SUFI  ROUTINE  LINE 
***  REVISED  MAY  1,  1976  *** 

COMMON  NTELPL, NTOLPL,  I PT,  I POT^T, M PTS , INL'L,  KNfcL,  WTOPL, N.L?L?(  61,3)  , 
1 POLE’G(  9 0,12)  , LCS(90,10)  ,ILKG(  1400)  ,PM(90)  ,QN(90) 

COMnON/SU3/PARM{  150,9)  , PM(  1500)  , QM ( 1500)  ,P(  300)  ,Q(  300)  ,C{  300) 

1,3(  300)  ,RHO(  20)  ,520RH0(  20)  ,VISC(  20)  ,CJUL-  ( 20)  ,TEMP(  20)  ,PVAP(  20) 

2 , AT  PR  LG , T , Of  LT , TF I NAL , ?LT  DE  L , PI , TITLE  ( 2 (J ) , LEGN , ICON 

3 , KTEM  P(  90)  ,LSTART(  150)  ,NLPT( 150)  ,LTYPC(99)  ,NC(  99)  ,INX,INZ 

4 , INV,  ISTEP,NLIf?E , NEL,  IND,  IESTR,rtSLlN'b,  riNLL,  riNLEG,  nNNODE , ‘113 PLOT 
5 , MNLPTS , .'IDS 

THIS  303 ROUTINE  SIMULATES  LINES  AS  DISTRIBUTED  PARAMETER  SYSTEMS 
USING.  THE  METHOD  OF  CHARACTERISTICS 


DIMENSION  LDN{ 150,7) ,LC( 300) 
E0UIVALEUCE(ILKG( 1) , LDN ( 1 ) ) , ( C(  1 ) , LC(  1 ) * 
IF( IENTR) 1000,2000,3000 
1000  CONTINUE 


C 

C THIS  DO  READS  LINE  DASH  NUMBERS  ( LDM ) AMD  LINE  PARAMETERS  ( PAR.;) -SEC 

C . N -INDIVIDUAL  LINL  NUnBER 
C LDN ( . , 1 ) -LINE  TYPE 

C LDN(  . ,2) -PERCENTAGE  I'ICRLASE  IN  LINE  LOSS 

C LDN(  . , 3) -NUMBER  OF  4 5 DEG  ELBOvJS 

C LON  ( . , 4 > DM  8 L R OF  9 0 DEG  E LB  Oh  S 

C LON( , . 6) -TOTAL  OF  SEND  ANGLES  .LT.  90  DEG  OEG 

C LDM (.,*'} - TOTAL  OF  3 END  ANGLES  .GL.  90  DlG  DEC- 

C LDN  ( . , 7 } = FLUID  TEi,  PE  RATO  RE/  PRESSURE  NUMBER 

C * * * PA  RiM  (.,!)-'  L iN GT  H 
C PARm(  . ,2) -LINE  CD  I pi. 

C PAR.i(  . ,3) -WALL  THICKNESS/CONSTANT 

C DAP.M  ( . , 4 ) -MODULUS  OF  ELASTICITY  PSI/TRANSITIOH  FLOW  FOR  GIVEN 

C Rr.N , DIA  + DENSITY  IN** 3/SEC 

DO  1100  1-1 , KLINE 

READ( 5 , 1 300 ) N , ( LDN ( N , J) ,J=1,7) ,(PARM(N,J) ,.1*1,4) 

1300  FORMAT  ( 515, 4 L 1 0 , 0 ) 

I F ( LDN ( N , 7 ) )lO,2O,30 
10  LON ( M , 7 ) = 1 0-LDN ( N , 7 ) 

GO  TO  BO 


20  L ON ( N , 7 ) = 1 
30  CONTINUE 


IF(I.NL.N)  WRITE (6,430)  N 

4 30  FORMAT  ( 4 311  THE  LINE  CARDS  ARE  OUT  OF  ORDER  AT  NUMBER  , 15) 
1100  CONTINUE 

C REN  =REYNOLD*S  NUMBER 


C 

C*** 

c*** 

n*  * * 
n 

c 

c 


LOUIVL=ROUI VALENT  LENGTH 
PA R:-l ( . , 5 ) =DELX 

?ARm{ . , 6 ) -CHARACTERISTIC  IMPEDANCE 
PAR:-i(  . ,7) -VELOCITY  OF  SOUND  IN  THL  LINE 

PA  R.  i ( . , 8 ) = LA.-i  I M7\  R FLOv,  CONSTANT  FOR  GIVEN  DIA,VISC  + DENSITY 
FARM  ( . , 9 ) =TUP3'JLi.NT  FLOW  CUMSTAMT  FOR  GIVEN  DIA,  VI  SC  + DENSITY 
PA RM( . ,2)  IS  IMPUTED  AS  LINE  CD  AMD  CONVERTED  TO  LINE  ID 
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5.1.7  (Continued) 


REN=1 200 
M=1 

DO  80  N=1 rNLINL 
IT=LDN(Nf 7) 
fc-N*2 
LC(i!)=l 
LC  ( .1-1 ) =1 

IF(LDN(N,1) .LT. 10)  GO  TO  65 
LC(K)=-1 

LDM(M,1)»LDN.(N,1)-10 
65  IF(LON(N, 1) .£0.1)  GO  TO  70 

PA  RA  ( N , 2 ) = PA Ibi  ( II , 2 ) -PA Ra ( Nf , 3 ) * 2 . 0 
A = 1 . 8 * ( P A RA  ( N , 3 ) + P A RA  ( M , 2 ) / 2 . 0 ) * 3 O LK  ( I T ) 

A=’OULK  ( IT) / ( RHO{  IT)  *{  1 . 0+A/  ( PARK  ( W , 4 ) * PARil ( N , 3)  ) ) ) 

GO  TO  75 

70  3UL(<I]=3U CjK ( IT)  * PAPIi  ( N , 4 ) / ( 3UL-((  IT)+PAPO(  N,  4)  ) 

A=3ULKH/RH0(  IT) 

75  A=SORT( A ) 

P A R ■ 1 ( *J , 6 ) = R I i O ( I T ) * A ' * 4 . 0 / ( P I * P A R A ( ■ ■ i , 2 ) * * 2 ) 

CONST- PARii ( M , 1 ) /DK.LT 
IF ( CONST. GE. A)  GO  TO  73 

PC=100.-COOS?*100./A 

WRITfc(  6 , 3 0 0 ) M , PC 
A-COSST 
7 3 PAR.  -1  ( G , 7 ) =A 

A L ?T  ( M ) » COM  ST/  A+l . 0 1 

PA  RA  ( 0 , 5 ) = PA  R;i(0,l)/(N’L??(G)-1) 

EOUIVL=?AP.-i(  N,  2)  *(  L0N(  O,  3)  *1  2+LDN(  A,  4 ) *57.  0+LDN(N  , 5 ) /4  5 . * 4 . 6 5+ 

1 L !'<:■!  ( 0 , 5 ) / 0 0 . * 7 . 5 ) + PA  R;  l ( I'M  ) * L DM  ( A , 2 ) / 1 0 0 

OI.A  = PAR.;(  2) 

PA.Ri i ( M , 3 ) = 1 23 ./PI  * VI SC ( IT)  *RMO(  IT)  / ( DIA*  * 4 . ) * ( PARi ( d , I ) +1:001  v L) 
? A P. , ( M , 0 ) = . 2 1 3 * R H 0 ( I T ) * ( V 1 3 C ( I T ) * * . 2 5 ) / ( D I A * * 4 . 7 5 ) * ( P A P. . l { :'M ) 
1+EQUIVL) 

80  CONTINUE 

WRITI:.(  6, 340) 

.■iRITL(  6,3  50)  ( (I)  ,(  ?AR.;(  I,  J)  , J = 1 , 7 ) , I = 1 , N L I G L ) 

,i=-l 

L3  TA  PT  ( 1 ) = 1 
DO  0 0 M = 1 , N L I .M  b 
IT*  LDM ( 0,7) 

PA P. ! ( H , 3 ) = PA RU ( N , 7 ) * D i LT/PA R.i  (0,5) 

PA Pr i ( N , 4 ) = . 7 3 5 4 * P E A *?ARI(  N,  ?)  *VI5C(  I T ) 

. !=i  i + 2 

IF(  LSTA RT(  N ) +NLPT(  N ) . GT.  4NLPTS-2 ) GO  TO  2 52 
LG  T A R? ( M + 1 ) = N L PT ( W ) +LSTA RT ( N ) 

OPI  = D7PPI  ( DLLOf  IT,  I , ’1 ) 

Z ( i*l ) = PA  P;  i ( G , 6 ) 

Z ( A. + 1 ) = Z ( i i ) 

0 0 CONTINUE 
C*** 


T 


AW 

; m 
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5.1.7  (Continued) 

C INITIALIZE  VARIABLES  USED  FOR  PLUGGED  AND  OPEN 
C CONNECTIONS,  (MNLIRE)*PLUGGED,  ( riNLINE-1 ) =OPLrl 
LSTART(  INLINE)  -MNLPTS-1 
NLPTf -INLINE) *2 
?-J=/iNLINE*2 
C ( N ) = 0 . 0 
C(N-1)»ATPRES 
Z ( M ) = 1 . 0 E 2 5 
Z ( N-l ) =1 . 0E-10 

C***  JUNK  WILL  3E  STORED  If?  Prt( riNLPTS-4)  TiIRO  P. l ( ilNLPTS-1 ) 
C***  LIKEWISE  FOR  Qrt ( ) 

IF(NLINB.GT.UNLINE-l)  GO  TO  252 
RETURN 

252  WRITE( 6, 475)  NLINE, LSTART( NLINE) ,NLPT (NLINE) 

WRITi (6,999) 

999  FORMAT ( 10X,  313PROGRA.-1  STOP  IN  SUBROUTINE  LINE) 

STOP  5101 

47  5 FORi1AT(5X,  9HERROR  £5  ,3110) 

2000  CONTINUE 

DO  2020  INO-1, NLINE 
IN D® I NO 

PA RM  ( I NO , 3 ) = PA  R.-'.  ( I NO , fi  ) * PA Rh  ( I N D , 7 ) * DELT/  PA R.  i { I N* D , 1 ) 
PARu(  I NO,  9 ) = PARi-j  ( I NO, 9 ) *PARa( I NO, 7 ) * DELT/  PARi-1  ( IND,  1) 
ZC=?AR.i(  IND, 5 ) 

N«»iLPT(lSiD) 

M*LSTART( IND) 

PPiil-PM(il) 

PPjl2*Pf‘,(rt-l+N) 

DL-;L?=  ( PP;il-PP.i2)/ (N-l) 

00-  i 1=0*  1(A) 

001- ;2=a-i(.i-l+N) 

DLLO=  ( OOill-OOu 2)/(  N-l ) 

LLPT*N-1 

DO  2010  I=2,LLPT 
PP.il  = PP.  1 1-DLLP 
OO;ilsQ0R.l-DLL0 
Pi . ( n-  1 +1 ) = PP:  1 1 
0O(.‘i-l  + I)=DO.»l 
2010  CONTINUE 

LUP-ISO*2-l 
LDViN  = IND*  2 
P(  LUP)  = P.<(  a) 

0(LUP)*-0:l(rI) 

P(  LD.iN ) = PA(  .1+N-l ) 

O ( L DW  N ) = O-'i  ( + W - 1 ) 


CALCULATE  CR  FOR  UPSTRt.Vi  ENDPOINT 
P PI  = Pi  1 ( :vl ) - PAR.-.  ( I N D , 3 ) * ( P. . ( . 1 ) - P;  I ( . 1+ 1 ) ) 

0PI=O;5(  •i)-PARO(  IND,  3 ) * ( D;i ( ,-t ) -0;i ( ii  + l ) ) 

PNI  = ?ii  ( ii+N-1 ) - PAR. i ( IND, 3 ) * ( P.i  ( i i + N-1 ) - P. i ( a+N-2 ) ) 
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nnno  n n 


5.1.7 


(Continued) 


Ql-i  I = Qtf  ( H+H  - 1 ) - PA  R;  i ( I N D , 3 ) * ( Qrf  ( M +N - 1 ) - Qrt ( W +13  - 2 ) ) 
C( LUP) =PPI-ZC*OPI+FRIC( OPI ) 

C CALCULATE  CL  FOR  DOWNSTREAM  END  POINT 

C ( L Oi  J N ) = PM  I +Z  C * Qi  1 1 - F R I C ( QM I ) 

2020  CONTINUE 
RETURN 

3000  CONTINUE 

DO  140  I N Q=  1 , N L IN  E 
IND- I NO 
ZC«PARM( I N D , 6 ) 

N=MLPT( IND) 

U=LST.ART(  I NO) 

JJ-M.+N-l 

NPLINE-S-1 

C CALCULATE  CR  FOR  UPSTREAM  ENDPOINT 

P? I = PM  ( M ) - PA RM ( IND,  3)  *(  ?.i(  ri ) - ?.  i ( M+ 1 ) ) 

Q?I=OM  ( N ) -FARM  ( INC,  3 ) * ( Qi* ( il)  - QM  ( ti+1 ) ) 

Pill* PM  ( l-l+N- 1 ) -FARM  ( I SI  G / 3 ) * ( PM  ( .i  +N -1 ) -PM ( -.1+13-2)  ) 
QMI=OM(M+N-l)-PARM(  IND,  3 ) * ( Q.'](  N+N-l ) -Q.'i(  M+N-2 ) ) 
C( IND*  2-1 ) =PPI-ZC*0PI+FRIC( OPI ) 

C CALCULATE  CL  FOR  DOWNSTREAM  END  POINT 

C(IND*2)  = PMI+2C*0.1I-FRIC(0.1I) 

IF ( N . LL . 2 ) 3 O TO  140 


ALSORITH.i  FOR  INTERIOR  POINTS  OF  LINES 
NPT=  2 
MPT  “il+l 
100  CONTINUE 
MPPl-MPT+1 
MP.-i  l=i-l  PT-1 

I NTS RPOLATI ON  POUT I ME 

PPI  - INTERPOLATED  PRESSURE  ON  TIE  PLUS (DOWNSTREAM)  SIDE 
P.il  - INTERPOLATED  PRESSURE  ON  TNL  <»INUS(  UPSTRL'A.;)  SIDE 
SIMILAR  NOTATION  IS  USED  FOR  FLOWS 
O P I = Oi  i ( A PT ) - P A RM  ( I N D , 3 ) * ( O. . ( .-i  PT ) - R|  I ( R t?  1 ) ) 

? PI  = P.  1 ( MPT ) - PA  Ri  i ( I N D , 3 ) * ( P.  i { . i PT ) — PM  ( . 1 P?1 ) ) 

P.iI  = PM(M?T)-PAR.-l(  I .VO,  3)  *(  P.i(  uPT) -PM(  MP.,1)  ) 

QM  I = O/i  ( i PT ) - PA  Rn  ( I M D , 3 ) * ( Q.  i ( U PT ) - QM  ( M Pi  : 1 ) ) 

C FIRST  APPROXIMATE  CL  + CR 


C 

c 


FRICi  i=FRIC { QMI ) 

FRIC  P=FRIC ( DPI ) 

DYP  RIC  = OFUICD(  D.-iI  ,MPT,  JJ,.l) 

C L= - P.i  I - 2 C * Ow  I + F RICi-i+DYFRIC 
CR=-PPI+2C*QPI-FRICP-DYFRIC 
CALCULATE  PRfcSSURE(P)  AND  FLQi 
P ( 13  PT ) = -(  CF+CL) /2 . 

0(N?T)=  ( CR-CL) /( 2. *2C) 
FRICR=FRIC( 0( NPT) ) 

DLLO=Q(  M PT ) - QM  { >i  PT ) 

D Y F R I C = D F R I C U { D IJ  L 9 , i -i  P T , J J , ) 


0) 


THE 


A DOVE  A PPROX J . i AT IONS 


« 


> r ? 

d ri: 


0 T’V-. 
/ .’  i.  ■ 


ii 
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5.1.7  (Continued) 


PLAST=P(NPT) 

QLAST=Q( NPT) 

RECALCULATE  CL  + CR  US I MG  PREVIOUS  ESTIMATE  OF  9 
CL=CL- ( FRICM-FRICR ) /2. +DYFRIC 
CR=CR-( FRICR-FRICP)/2.-DYFRIC 
RECALCULATE  P + Q US  I MG  IMPROVED  CL  + CR 
P(NPT)=  -(CR+CL)/2. 

0(  MPT) = (CR-CL)/( 2.*ZC) 

DELQ=Q( NPT ) -OLAST 
DYFRIC=OFRICU(  DELO,HPT,  JJ,.-1) 

MPT  =HPT+1 
NPT=NPT+1 

IF(NPT.LE.NPLIME)  GO  TO  100 

AFTbR  FINDING  P + o FOR  TUE  WHOLE  LINE,  PUT  THESE  VALUES  INTO  PH  + 
DO  130  1=2 , UPLINE 
P.i(  M+I-l ) =?( I ) 

OH (, 1+1-1)  = 0(1) 

130  CONTINUE 
140  CONTINUE 

300  FOP:iAT(/,5X,  44HFIX-UP  TAKEN  AT  LINE  13,VLL  OF  SOUND  IN  LINE,  II  , 2X, 
12HIS,F8.1,17HPER  CENT  IN  ERROR) 

340  FORMAT ( // , 10H  LINE  DATA,/,  9 U LINE  'NO.  , 9X,  6 II LENGTH , 9X , RH INTERNAL 
1 , 7X , 4 HW ALL, 1 IX, lOHHOUULUS  OF , 5X, 4 HOE LX , 11X, 1 4HCH ARACTERISTIC , 

21211  VELOCITY  OF  ,/,32X, 

3 3HDIA , 1 2X, 9HTHICKHE35, 5X , 19HELASTICITY, 20X,  OR  IMPEDANCE 

4 , 1 1H  SOUND) 

350  FORMAT  ( /'IX,  I5,10X,FS.4,7X,F8.4,7X,F8.4,7X,  f. 1 0.  3 , 5X,  F°> . 4 , 7X  , F3 . 4 , 
16X, Fll. 4 ) 

350  FORMAT ( IX, 5X, 1 5 , 5E1 2. 5) 

RETURN 

END 
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5.2  SUBROUTINE  FRIC 


FRIC  is  a function  subroutine  that  is  used  to  calculate  steady  state 
pressure  drops  for  laminar  and  turbulent  flows, 

5.2.1  Math  Model 

Steady  state  pressure  drops  are  computed  using  the  Darcy-Welsbach 
equations 

FRIC  - Q* 128*VTSC(IT)*RHO(IT) *FARM(IND , 1) / (P1*DIA;  for  laminar  flow 

FRIC  = Q*Q .75* . 213*RHO(IT) *V1SC (IT) * 25*PARM(1ND , 1) /DIA^ ' ' 5 turbulent  flow 

Note;  The  equations  assume  a Reynolds  number  of  1200.  Since  in  each 

equation  all  variables  except  flow  are  actually  constants  for  a given 

line  and  fluid,  laminar  and  turbulent  flow  constants  PARM(1ND,8)  and  PARM(IND,9) 

are  calculated  in  the  1000  section  of  LINE  subroutine  for  use  in  this 

subroutine.  The  transition  flow  for  each  line  PAKM(1ND,4)  is  also  calculated 

in  LINE's  1000  section. 

The  pressure  drop  equation  can  then  be  written 

FRIC  = Q*PARM(LND,8)  for  laminar  flow 

FRIC  = q*Ql’ 75*FARM(IND,9)  for  turbulent  flow. 

* 

5.2.2  Assumptions 

1.  Transition  from  laminar  to  turbulent  flow  is  assumed  to  occur 
at  a Reynolds  number  of  1200.  Flows  having  a Reynolds  number  greater 
than  1200  are  considered  turbulent  while  flows  having  a Reynolds  of  1200 
or  less  are  assumed  laminar. 

2.  The  friction  factors  used  are  based  on  circular  cross-section, 
smooth  1 .1) . , drawn  tub  lg. 

5.2.3  Computation  Methods 
Not  applicable. 


i 
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5.2.4  Approximations 


Pressure  drops  calculated  for  flows  in  the  Reynolds  number  range 
of  1200  to  3000  are  approximate  since  a transition  flow  equation  was  not 
developed.  The  turbulent  equation  is  used  in  this  range. 

5.2.5  Limitations 

FRIC  should  not  be  used  to  calculate  pressure  drops  across 
non-circular  cross  section  passages  or  across  rough  I.D.  tubing. 

5.2.6  Variable  Names 

Variable  Description  Units 


Q 

Q1 


Fluid  Flow 

Absolute  Value  of  Fluid  Flow 


IN  3 /SEC 
IN 3 /SEC 


FRIC 


Pressure  Drop 


PSI  or  PSI/Length 
(depending  on  the 
form  of  the  constant) 


FIGURE  3.2-1  FRIC  SUBROUTINE  FLOW  DIAGRAM 
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5.2.7  Subroutine  Listing 


C *** 


in 


FUNCTION  FKIC(QA) 

REVISED  AUGUST  5,  1975  *** 


COMMON/ 3 US/ PA RM  ( 150,9)  , PM(  1500)  ,QM(  1500)  , P(  300)  ,0(  300)  ,C(  300) 
L,Z{  300)  , RHO(  20)  ,S20RH0(  20)  , VISC ( 20)  , 3ULI<(  2 0 ) ,TEMP(  20) ,PVAP{  20) 
2,ATPRES,Tf DELT,TFINAL, PLTDEL, PI, TITLE ( 20) , LEGN , ICON 
),  KTEMP(  99)  ,LSTART( 150)  ,ULPT(  150)  , LTYPE { 99 ) ,NC(  99)  , INX,INZ 
1,  INV,  ISTEP,NLINB,NEL,  IND , I ENTR , HNLINE , rfNEL , flKLEG , I4NBOOE , flJJ PLOT 


, MNLPTS , MDS 


01=A3S(QA) 

IF ( Q1 . GT . PA RM ( IND , 4 ) ) GO  TO  10 
FRIC=QA*PARM( IND,B) 


RETURN 

F R IC =QA*  Q 1 * * . 7 5*  PA  RM ( IND, 9) 
RETURN 


END 
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5.3  SUBROUTINE  DFRICD 


Function  Df'RICU  is  used  by  LINE  to  calculate  pressure  loss  due  to 
dynamic  friction  caused  by  local  fluid  acceleration.  The  theory  used  (see 
Reference  paragraph  9.4)  provides  an  efficient  method  for  determining 
dynamic  friction  that  gives  close  correlation  with  experimental  reaultB. 

5.3.1  Math  Model 

The  theory  used  for  the  basis  of  this  subroutine  is  described  in  the 
paper  noted  in  Reference  paragraph  9.4.  Equation  (39)  of  the  referenced 
paper  is  the  expression  used  to  describe  the  combined  steady  state  and 
dynamic  pressure  losses  under  laminar  flow  conditions. 

f (t+At)  » V (t)  + (y.j  + y2  + y^) 

a a^ 

Substituting  equation  (35)  into  equation  (33)  produces  the  following  expressions 
for  y1>  y2  and  y3 

-ROOO*A*v/a2 

y (t  4-  At)  = y1  (t)  *e  + 40.*  (V  (t  + At)  - V (t)) 

-200*  At*v/a2 

y0  (t  +•  At)  = y9  (t)  *e  4 8.1*  (V  (t  + At)  - V (t)) 

-26 . 4*At*v/a2 

y3  (t  4-  At)  “ y ^ (t)*e  4-  (V  (t  4 At)  - V (t)). 

Each  expression  for  y at.  time  t 4 At  contains  a decayed  pressure  at  t 
added  to  a pressure  loos  caused  by  a change  in  fluid  velocity. 

Converting  velocity  to  volumetric  flow  rate  and  l.R.  to  I.D.  yields 
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f(t+At)  . 128  *p*u* 

IT  * 


16  *p*v 


<t>*.  "800°  ' At*V‘4/D  ♦ *«(«*.)- q <«»)  I 


-200  *fiu  * «*»/»•  <48*1  (Q  (t  + At)  - 0 <t»  1 

+ [y7  (t)*e  + ttAd2 


-26.4  *At  *\)*4/D' 


+ [y3  (t)*e 


+ %2 


(Q  (t  + At)  - Q (t))  1 


Since  the  first  term  in  the  equation  is  steady  state  pressure  drop  for 
laminar  flow,  it  is  omitted  in  this  subroutine.  The  dynamic  pressure  drop 
equation  can  then  be  written 


f (t+At)  = *y  (t)*e 

DX 


-8000*At*v*4/D" 


— ■ * (Q  (t+At)  - Q(t)) 

ir*D 

-j tW.  * -200*At*v*4/ 0^ 

lb*p*v  ... 

* y (t)*e 

D 

— • -----  * (Q  (t+At)  - Q (t)) 

tt*I)4 


* y,  (t)*a 

i r 


-26 . 4*At*v*4/D 


i:  (q  (t+At)  - Q (t)) 

ir*D4 


This  equation  is  used  to  calculate  turbulent  as  well  as  laminar  flow  pressure 
drops  under  dynamic  conditions  since  little  is  known  about  the  effects  of 
dynamic  friction  under  turbulent  flow  conditions. 

In  the  subroutine,  pressure  loss  at  time  T to  be  decayed  is  expressed  by: 


h 
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1,2,3 


, and 


16*o*v 

2 


* Y 


is  actually  the  latest  Y value  calculated  by  entry  DFRICU.  The  first  time 
through  the  3000  section  of  line  (i.e.,  T « DELT) , the  decayed  pressure  values 
are  set  to  zero. 

5.3.2  Assumptions 

See  Reference  (4) . 

5.3.3  Computation  Methods 

Entry  DYFRI  is  called  from  the  2000  section  of  LINE.  The  purpose  of  this 
entry  is  to  calculate  and  store  the  dynamic  pressure  loss  equation  constants 
for  all  LINES.  The  value  returned  to  LINE  ,Y1(1),  is  not  actually  used. 

DFRICD  is  next  called  from  the  3000  section  of  LINE.  New  Y values  are  calcu- 
lated using  past  Y values  multiplied  by  their  decay  factors.  Yl,  Y2  and  Y3 
are  summed  and  set  equal  to  YT0TAL.  This  decayed  value  of  pressure  loss, 
YTOTAL,  at  program  time  T - DELT  is  returned  to  LINE  which  uses  it  in  the 

first  iteration  of  each  time  step  to  calculate  flows  and  pressures  at  a given 

0 

interior  line  point.  DFRICU  entry  is  made  from  the  3000  section  of  LINE  and 
is  used  to  update  the  Y values  of  DFRICD  using  changes  in  flow.  YTOTAL 
is  set  equal  to  YOLD  and  all  Y values  are  updated.  Yl,  Y2  and  Y3  are  next 
summed  and  set  to  YTOTAL.  YOLD  is  subtracted  from  YTOTAL  and  the  resulting 
value  is  returned  to  LINE. 

5.3.4  Approximations 

This  method  of  calculating  frequency  dependent  friction  is  in  itself 
an  approximation  of  the  exact  expression.  The  method  was  chosen  to 
conserve  computer  cere  and  computation  time. 

5.3.5  Limitations 


See  Reference  (4)  ■ 


V 


DFRICD 


ENTRY  DFRICU 


DFRICD  FLOW  DIAGRAM 
FIGURE  5.3-1 


5.3-4 


5.3.6  Variable  Names 


Variable 

Description 

Unit! 

CONST 

Constant  in  dynamic  pressure  loss  equation 

— 

DELQ 

New  flow  - Old  flow 

CIS 

DFR1CD 

Dummy  variable 

— 

DIA 

I.D.  of  tube 

IN 

EX1 

Constant  in  dynamic  pressure  loss  equation 

— 

EX2 

Constant  in  dynamic  pressure  loss  equation 

— 

EX3 

Constant  in  dynamic  pressure  loss  equation 

— 

JJ 

Address  LSTART(N)  + NLPT(N)  -1 

— 

M 

Address  LSTART(N) 

— 

MM 

Address  LSTART(N) 

— 

MPT 

Address  LSTART(N)  +1 

— 

M 

Counter  indicating  assigned  line  number 

— 

YOLD 

Dummy  variable 

— 

YTOTAL 

Decayed  value  of  pressure 

PSI 

Y1  ( ) 

Array  for  Y1  valves 

— 

Y2  ( ) 

Array  for  Y2  values 

— 

Y3  ( ) 

Array  for  Y3  values 

— 
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t 


5.3.7  Subroutine  Listing 


FUNCTION  OF  R IC 0 ( 0 E LO , ,1 PT , J J , .1 ) 

C ***  REVISED  AUGUST  5,  1975  *** 

COiiMOM/SUS/PAR;J(  150,9)  , P.i(  1500)  ,CM(  1500)  ,P(  300)  ,Q(  300)  ,C(  300) 

1,  Z(  300) ,RUO( 20) , S 20  R 1 10  ( 20) , VISC( 20) f 3ULK( 20) ,TErtP( 20) ,PVAP( 20) 

2,  ATPR£S,T, DELT,TFINAL, PET DEL, PI # TITLE ( 20) , LEGN, ICON 

3, KTEiiP(99)  , LSTART(  150)  ,Nl.PT(  150)  , LTYPE(99)  , NC ( 9 9 ) , INX,INZ 

4 , INV,  ISTK?,  HEINE , NLL,  I NO,  IENTK,  riNLIN'E,  MNEL, riNLEG,  l-'.NNOOE , riHPLOT 

5 , nNLPTS , riDS 

DIMENSION  Yl( 1500) ,Y7( 1500) , Y3( 1500) 

DATA  Yl , Y2 , Y3/4  50  0* 9 . 0/ 

Y 1 ( i'-'i  PT ) = Y 1 ( i'i  PT ) * Yl  ( IT) 

Y 2 ( >1  PT ) = Y 2 ( il  PT ) * Y 7 ( J.J ) 

Y 3 ( 1 1 PT ) = Y 3 ( i'i  PT ) * Y 3 ( 1.1) 

YTOT Mj=Y1  ( 11 p D + Y?. ( . i i*T ) +Y3  ( rl  PT ) 

DFRICD-YTOTAT. 

RETURN 

ENTRY  ^FOICH 
YOLD=YTOT\E 

Y 1 ( siPT ) = Y 1 ( ; ) + Ol.  EC*  Y l { .1  ) 

Y2(;iPT)=Y2(..PT)+,)ET/'*Y2(  1 ) 

Y 3 ( .-i  PT ) = Y 3 ( PT ) + OL,  ED*  Y 3 { , 1 ) 

YTOTAL=Yl  ( i P T ) + Y 2 ( •:  PT ) + Y 3 ( -i  PT ) 

DPR ICO* YTOT A L-YOL9 

RETURN  . 

ENTRY  OYFrtI 

C I3M  350  - 2 ERG  Y l , Y 2 , Y 3 ARRAYS  MERE 

RAD=?AR.i(ilr2)/2.0 
.l.;=LSTART(  .1) 

J J=i1M+N  LPT  ( i ’ ) - 1 

CONST* PAR -i (.1,7)* OLL T* »KO( .»®T)  *VISC(  ilPT)/(  PI* RAD* * 4 . ) 

Yi(:-i;i)=ioo.*co>'JST 

Y2( ;n»)*32. 4*CODST 

Y 3 ( •:  i.-i  ) * 1 . * CONST 

COUST=DE LT*  VISC  ( PT ) / R A 0**2. 

LX1»-SOO/).*CONST 
LX2=-200. * CONST 
EX3=-25. 4*CONST 
Y 1 ( J J ) = E X ? ( L X 1 ) 

Y2(  J.J)  =EXP(  1T<2) 

Y3(  JJ)=EXP(  tX3) 

OFRICO=Yl( 1) 

RETURN 

LN’D 
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5.4  SUBROUTINE  CHAR 


The  function  subroutine  CHAR  was  set  up  to  obtain  interpolated  values 
of  the  line  characteristics,  CU(  ) and  CD(  ) between  TIME  = T - DELTA 
and  T. 

The  interpolations  are  required  by  subroutines  using  integration,  such 
as  PUMP51,  which  require  evaluation  of  the  line  characteristics  at  time 
intervals  smaller  then  DELT. . 

The  subroutine  is  divided  into  three  parts,  using  two  entry  points. 

ENTRY  CHARIN  which  is  called  from  the  2000  section  of  the  component 
subroutine  sets .up  the  address  system,  for  the  number  of  active  connections, 
and  returns  the  storage  addresses  to  the  calling  routine. 

ENTRY  CHARUP  is  called  from  HYTR  after  the  call  to  LINE  and  before 
the  call  to  COMP.  This  call  adds  the  latest  characteristic  values 
and  calculates  the  interpolation  formula  constants  ready  for  use. 

Function  CHAR  calls  obtains  interpolated  values  of  the  line 
characteristic  for  TIME  where  TIM  =>  0.0  when  TIME  = T-DELTA 
and  TIM  = 1.0  when  TIME  = T, 

using  the  constants  derived  in  the  call  to  ENTRY  CHARUP  in  the  interpolation 
formulas . 

5.4.1  Theu ry 

The  Lagrange  Interpolation  formula  was  taken  from  Reference  (3)  Chapter 
3.  A second  order  interpolation  was  used  which  requires  the  solution  of 
formula . 

1 

Y (X  ) = ^T\k<X)  * Y (Xk) 

, k=0 

where 

Li (X)  = (X  - Xo)  • • • (X-Xi-1) (X  - XI+1)  (X-Xn)/ 

[(Xi  - Xu)  -.-(Xi  - Xi-1) (Xi-Xi+1) • ■ • (Xi  - Xn)  I 
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and'Y(Xk)  is  the  value  of  Y at  time  X. 
for  i = -1,  0,  and  +1  this  becomes 


L(-1)(X)  = 

(X  + 0)*(X  - 1)/  [(-1-0)*  (~1-D 

« 

(X2-  X)/2 

L(o) (X)  - 

(X  + 1)*  (X-l)  / [ (CH-1)*(0-1)J 

S3 

(x2  -1)*  -1 

L (1) (X)  - 

(X+l)*(X+0)/  [ (1+1)* (1-0) J 

= 

(X2+X) / 2 

Y (X) 

X2*(Y(-l)/2  - Y (0)  + Y(l)/2 

+ X*(-Y(-l)/2  + Y (1)  / 2) 

Y(0) 

This  formula  is  then  used  to  obtain  an  interpolated  value  of  Y 
between  X = 0 and  X » 1. 

The  fixed  time  system  was  chosen  to  simplify  the  calculations, 


5.4.2  Assumptions 

The  Lagrange  interpolation  technique  has  limitations  when  applied 
to  rapidly  changing  functions,  in  that  it  tends  to  produce  overshoot. 

Since  there  is  no  pre-determined  function  that  can  be  used  and  the 
interpolation  is  always  using  the  last  piece  of  data,  any  interpolation 
routine  be  it  first,  second  or  third  order  will  suffer  from  some  deficiencies. 
Hence  the  choice  of  technique  has  to  be  based  on  the  advantages  and 
disadvantages  of  each  method. 


5.4.3  Computation 


The  function  subroutine  uses  the  entries  to  initialize  and  update 
the  data,  to  avoid  time  consuming  tects  in  the  running  portion  of  the 
program.  The  initialization  section  under  ENTRY  CHARIN  is  called  from 
the  2000  section  of  the  calling  subroutine.  The  CUCD(  ) array  is 
initialized  to  the  steady  value  of  the  line,  characteristic  and  the  line 
number  is  stored  in  the  NCUCD(  ) array.  It  will  be  -ve  if  its  the 
upstream  end  of  the  line.  The  number  of  connections  for  each  component 
is  passed  to  the  subroutine  via  the  common  variable  INX.  The  address 
of  the  first  line  connection  is  returned,  to  the  subroutine  by  the  value 
of  CHAR,  which  is  then  converted  to  an  integer  address  in  the  calling 
program. 

5.4.4  Approximations 
Not  applicable. 

5.4.5  Limitations 

The  Lagrange  interpolation  technique  does  not  produce  a smooth  curve 
from  one  time  interval  to  the  next,  however  the  typical  characteristic  data 
form  a relatively  smooth  curve  so  the  interpolation  error  is  not  very 
great. 

5.4.6  Variable  Names 

Name  Description  Dimension 

CHAR  Valve  returned  to  calling  routine  PSI 

or  integer  address 

CUCD(  ) Array  of  characteristic  values  and 

formula  for  interpolation 

I DO  loop  counter 

N Line  number  +ve  or  -ve 
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Name 


Description 


Dimension 


NCUCD 

Storage  for  N values 

N1 

Rotating  addresses 

N2 

Rotating  addresses 

N3 

Rotating  addresses 

N4 

Rotating  addresses 

TIM 

No.  dimensional  time 
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5.4.7  Subroutine  Listing 


FUNCTION  CHAR  (JfTIiiE) 

C****  REVISED  AUGUST  5,1075  **** 

C Oii t iON/ S UB/ PA R;-i ( 150,9)  ,?!.(  1500)  ,QM(  1500)  ,P(  300)  ,Q(  300)  ,C(  300) 
1,2(300) ,RHO( 20) , S 20RH0( 20) , VISC ( 20 ) , CULK ( 20) , TEH P( 20) ,PVAP(20) 

2,  ATPR£S,T,  DELT, TFINAL,  PLTDEL,  PI , TITLE ( 20)  , LEGS , ICON 

3,  KTK»*lP(  99)  , LSTART{  150)  ,MLPT(  150)  ,LTYPL(99)  ,MC(99)  , I MX,  INS 

1,  ItJV,  I STE  P , M LI  ML  , IV  EL,  I rJD,  I ENTR,  .illLINE,  HULL,  rlNLEG,  rlNNODE , (-IN  PLOT 
5,HNLPTS,ilDS 

DI.iLNSION  CUCD(  4 , 99 ) , NCUCD(  99) 

COi'UiON  /COilPD/D(  1500)  ,L(  1500)  , LR(99,4) 

DATA  I,N1,N2,N3,N4/1,1, 2, 3, 4/ 

DATA  NCUCD(1)/1/ 

TIN=1 . 0-(  T-TIi'iC ) /DELT 

CUAR=CUCD(  il2,  J)+CUCD(  4 , J)  *TIN+CUCD(  S3,  J)  *TI/.**2 
RETURN 

ENTRY  CHAR UP 

IF(I.EO.l)  RETURN 

M4«f43 

M3- <4  2 

U2-N1 

M1-H4 

DO  300  i = i,;ccd 
N-MC.JCOd) 

C«JCO(wl,I)-C(S) 

CUCD(  4,1)  =CUCD(  .VI , I ) /2-CUCO(  .43 , 1 ) /2 
C UC O ( N 3 , 1 ) =CUCD(  Ml  , I ) /2-CUCC(  M2, 1 ) +CUCD(  S3* 1 )/2 
300  CONTINUE 

CilAR-KCD+.Ol 

RETURN 

ENTRY  C MARIN 
CriAB-I+.Ol 
DO  20  '1=1 , 1 NX 
N-L(LL( J,4)+X-l) 

CUCD( 1 , I ) =C ( N ) 

CUCD( 2,I)=C(H) 

CUCO( 3,I)=C(N) 

NCUC D{  I ) =M 

:<co-i 

1=1+1 

20  CONTINUE 
RETURN 
END 
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6.0  COMPONENT  SUBROUTINES 


The  components  modeled  vary  from  the  simple  restrictor  to  a very  fast 
response  pump.  Each  model  is  broken  down  into  its  most  basic  equations  of 
motion  and  flow,  the  oum  total  of  all  these  equations  can  be  very  complex, 
but  individually  they  are  usually  simple. 

New  subroutines  can  be  added  without  difficulty  and,  if  the  computer 
system  can  tolerate  unsatisfied  external  references  that  are  not  called 
during  execution  then  component  subroutines  not  in  use,  can  be  omitted  from 
the  input  deck  or  file  when  not  required. 

In  working  with  the  program  it  is  necessary  to  get  a good  grasp  of  the 
fundamentals  involved  in  the  simulation,  even  the  most  carefully  checked 
routine  can  have  traps  built  in  which  are  not  always  found  until  the  output 
data  is  carefully  examined  by  someone  who  khows  what  it  should  look  like. 
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CALCULATE 
CONSTANTS 
FROM  INPUT 


1500  SECTION 


CALCULATE 
STEADY  STATE 
PRESSURE 
DROP 


2000  SECTION 


INITIALIZE  ALL 
VARIABLES  TO 
STEADY  STATE 
VALUES 


3000  SECTION 


DO  TRANSIENTS 
CALCULATIONS 
FOR  THIS 
TIME  STEP 


FIGURE  6.1-1 


COMPONENT  SUBROUTINE  ORGANIZATION 
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6.1  SUBROUTINE  COMP 

Subroutine  COMP  which  is  called  by  HYTR,  read**  end  prints  all  component 
input  data,  sorts  out  connection  data  for  all  component  s,  and  calls  each 
individual  component  in  the  order  in  which  it  was  input 

6.1.1  Math  Model 
Not  applicable. 

6.1.2  Assumptions 
Not  applicable. 

6.1.3  Computation  Methods 
Section  1000 

A component  Integer  card  is  read  and  its  data  is  printed.  Connection 
data  for  the  component  is  sorted  out  and  stored.  The  real  data  cards  for 
the  component  are  then  read  and  printed,  if  any  exists.  Next,  the  addresses 
of  the  component's  real  data,  temporary,  double  precision  and  integer  variables 
are  established.  Finally,  the  individual  component  subroutine  is  called 
passing  as  arguments  its  starting  address  in  the  real  data,  temporary, 
double  precision  and  integer  arrays.  This  process  is  repeated  until  all 
input  components  have  been  called. 

Section  2000 

This  section  consists  of  a DO  loop  that  ranges  from  1 to  the 
number  of  input  components.  Within  the  loop  a component  group  type  is 


isolated  by  taking  its  type  number,  dividing  by  10  and  forcing  truncation 
(due  to  the  use  of  integers) . This  truncated  value  is  then  uBed  in  a computed 
GO  TO  statement  to  direct  control  to  a statement  or  section  that  calls 
the  specific  component.  If  there  is  more  than  one  component  of  that  group 
type,  specific  component  isolation  is  accomplished  by  subtracting  the  group 
component  type  number  from  the  individual  component  type  number  and  using  the 
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resulting  value  in  a computed  GO  TO  statement.  This  GO  TO  statement 
then  directs  control  to  a statement  that  calls  the  component.  COMP 
isolates  and  calls  each  component  in  a simple  and  straightforward 
manner  aiding  in  the  running  of  the  overall  program  since  every 
component  has  to  be  called  each  time  step  in  the  transient  calculations 

6.1.4  Approximations 
Not  applicable. 

6.1.5  Limitations 


Not  applicable. 


Description 


Units 


6.1,6  Variable  Names 


Variable 


I 

J 

KK 

KTYPE 

LDATAC 

LI 

L4 

N 

NCI 

NDATAC 

NLIM 


Counter 

Counter 

Dummy  Variable  for  L4 

Dummy  Variable  for  LTYPE(  ) 

Number  of  Element  Real  Data  Cards 

Data  value  1 

Data  value  1 

Counter 

Number  of  Last  Active  Connection 
LDATAC/ 1000 

Number  of  Real  Data  Fields 


NN  Dummy  Variable  Representing  Maximum  Number 

of  Component  Connections 

NTYPE  Group  Type  Number 

NX  Data  Value  2 

N1  Dummy  Variable  Representing  Max  Number  of 

Real  Data  Fields  for  a Given  Component 

N2  Dummy  Variable  Representing  Max  Number  of 

Temporary  Variables  for  a Given  Component 

N3  Dummy  Variable  Representing  Max  Number  of 

Double  Precision  Variables  for  a Given 
Component 

N4  Dummy  Variable  Representing  Max  Number  of 

Integer  Variables  for  a Given  Component 


I 


I! 
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A 


6.1.7  Subroutine  Listing 


SUBROUTINE  COUP 

C ***  REVISED  AUGUST  5,  1975'*** 

D0U3LE  PRECISION  DO 

COHViOM  rtTt LPL, WTQLPL,  IPT,  I POINT, NPTS , INEL,  KHEL,  iJTOPL,  ULPLi’f  61,  3)  ,. 
1 ?QLEG(D0f12),ND(150,10) 

C0W.'S0N/3U3/PARM ( 150,9)  ,M(  1500)  ,Qw(  1500)  ,P(  300)  ,Q(  300)  ,C(  300) 

1,2(  300)  , P H O ( 20)  , S 2015110 ( 20)  ,VISC(  20)  ,BUU<(  20)  ,TE.H?(  20)  , ?VAP(  20) 

2,  AT PRES ,T, DELT, TFINAL, PLTOEL, PI , TITLE (20) , LEGN , ICON 

3 , KT  fit-j  P ( 9 9 ) , LSTART(  150)  ,NLPT(150)  ,LTYPb(99)  ,UC(99)  ,IWX,IKZ 

4,  i:ov,  ISTEP,ULINE,UEL,  IND,  I EKTR#  HSLINE , SNLI,,  HflLEG , WSNOOE , NO  PLOT 

5 , iiULPTS , ,iDS 

CO.iiiOVCONPO/D(  4500)  , L(  1500)  ,LE(99, 4) 

OI.-if:\’SION  DD(  1400)  ,LT( 10,150)  , LC(  1) 

EOUI VALEUC E ( L( 1 ) , LT( 1 , 1 ) ) , ( D( 1 ) , DD( 1 ) ) , ( C( 1 ) , LC ( 1 ) ) 

DATA  LI,  L4,i;X/l,  1, 2/ 

I KQ=  1 

IF( IEUTR)  1000,2900,2000 

1000  CONTI KUL 

DO  1901  1=1,10 
DO  1002  J=1 , 1 50 

1002  D(  J , I ) =LT(  1,  7) 

1001  CONTINUE 

1003  CONTINUE 

UC  1 = 9 

C THIS  klAO  STATE.-]  l. -ST  INPUTS  THE  PGLLOvilUG  DATA 

C I “INDIVIDUAL  COUPON  ENT  UU. .SEP 

C LTYPE  =COh POTENT  TYPE 

RLAD( 5,170)  I , LTY°t ( I ) , L DAT AC , ( L( L4-1+J ) , J= 1 , 1 2 ) ,XTSrtP( I) 

'•')  P I T L ( A , 5 0 9)  1,1,  LTY  PE  ( I ) , L DAT  AC , ( Lf  L4-1+J ) , J=1 , 1 2 ) , Y.TENP(  I ) 

U DA  T A C = L DA TAG/ 10 00 
L DA  T A C=  LDATAC- ;I  DA  TAC* 1900 
IP(ETr.-iP(I)  ) 11, 12, 13 

1 1 TTb.j'i  p ( i ) = l o-:;t Ei-i  p ( i ) 

GO  TO  13 


1.2  KTE:  iP(  I)  = l 
13  CONTINUE 

M L L -i  = L D A T A C * .3 

C***  LDATAC  EQUALS  THE  m-l’iiiR  OP  ELE.iE.vT  REAL  DATA  CARDS 
TTY PL = LTYPE ( I ) 

UC( I)=KD(KTY?E,7) 

IF ( UC ( I ) . LO. 0 ) GO  TO  7 

l\K=L4 

:•].-]  = L4  + SC  ( I ) - 1 
DO  4 M»*C a,  UN 
IF(L(E'))  1,2,3 

1 L(N')=-L(N)  *2-1 
LC  ( L ( U ) ) - 9 

uci=uci+; 

•GO  TO  4 

2 L ('■])=  . j 9 LI ;]  E * 2 -H  D ( T< T Y PE  , 9 ) 
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6.1.7  (Continued) 


GO  TO  4 

3 L(N)=L(N)*2 
LC ( L( N ) ) =0 
NCI=NCI+1 

4 CONTINUE 

5 IF(L(HN) .LT. INLINE* 2-1)  GO  TO  6 
NC  { I ) =MC  ( I ) — 1 

NN-NN-1 
GO  TO  5 

6 CONTINUE 
IHZ«NCI 

IF(NCI.NL.3C(I)  ,AKD.ND(KTYPEf  10)  .NE.O)20  TO  420 
IF ( WC ( I ) .T.T.HD(KTYPE,8)  ) NC(  I ) =ND( KTYPfi,  8 ) 

7 N1=ND(KTY?E,1) 

N2=ND(  KTYPE , 2 ) 

N3*MO(KTYPE, 3) 

•H=i'ID{  KTYPE , 4 ) 

IF ( MLI.i.EO.  0 ) GO  TO  15 

8EAD(  5, 450)  ( D( Ll+N-1 ) ,H«l,HLI*i) 

IF(IKO.KE.I)  GO  TO  410 
KN=L1 

DO  10  KI\=1,  LD-YTAC 

'•SPITE  ( 5 , 5 1 0 ) a i< , ( D ( ^iii+rM)  f N=1 , 3 ) 

:in-hu+3 
10  CONTINUE 
15  INX=0 

IF  ( MCATAC.NL. 0)  GO  TO  20 
IF  ( L DAT  AC  • GT . N D ( KT  YPL , 6 ) ) Nl=NLIn 
LL ( I , 1 ) =L1 
LE(  1 , 2)=Ll+iil 
GO  TO  30 
20  CONTINUE 

LE ( 1 , 1 ) =Lb ( UDATAC  , 1 ) 

LE(I,2)=L1 

INX=1 

30  IF(NX*N3.L£.l)  GO  TO  40 
LE( I , 3 ) = ( LL( I , 2 ) +N2+3 ) /2 
Ll  = ( LE ( 1 , 3 ) +N3 ) * 2+1 
GO  TO  50 

40  LL{  1 , 3 ) = LF. ( I f 2 ) +N2  | 

L1=LE( I, 3)+N3 
50  LE(I,4)*L4  ■ 

L4-L4+N4 
EUTPY  CO.iPG 
2000  CONTINUE 

T<TYPb=LTYPf(  INO) 

WTYPL  = KTYPE/ 10 
N1=LE(  IrJO,  1) 

H2=LE(I\'D,2) 

N3=LE ( IND , 3 ) 
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6.1.7 


(Continued) 


N4*LE(IND,4) 

GO  TO  ( 210, 220, 23 0,240, 2 5 0,2 60,270, 280, 290, 300) ,NTYP£ 
C 360  GO  TO  400 
210  CONTINUE 

CALL  3 RAN  11  ( Q(  Ml ) , D(  W 2)  , OD(  ->i 3 ) , L(  N4 ) ) 

GO  TO  400 
220  CONTINUE 

KTYPE=KTY PL-20 

GO  TO  (221,222,223,224) ,KTYPE 

221  CALL  VALV21  ( O ( N 1 ) , O { M 2 ) , DO  ( N 3 ) , L ( (S!  4 ) ) 

GO  TO  400 

222  CALL  VALV22  ( U(N1) ,0(N2) , DO( N3 ) , L(H4)  ) 

GO  TO  400 

723  CALL  VALV23(D(M1) ,0(N2) ,EO(N3) ,L(N4) ) 

GO  TO  400 

224  CALL  VALV24  { D(  N 1 ) ,0(wT2)  ,00(\-3)  ,L(W4)  ) 

GO  TO  400 

230  CONTINUE 
KTY?i:=r'TYPb-30 

GO  TO  ( 231, 232, 233, 234) ,KTYPE 

231  CALL  CVAL31  ( 0(  ill ) , D(  A'2)  , DD(  N3  ) , L(  N4  ) ) 

GO  TO  400 

232  CALL  CKI-  L32  ( 0(  -M 1 ) , 0(  G 2 ) , D0(  w 3 ) , L(  S 4 ) ) 

GO  TO  400 

233  CALL  CVAL33(  0(01)  ,0(G2)  ,U0(N3)  ,L(\M)  ) 

GO  TO  400 

7.34  CALL  CVAL3  4 ( 0 ( 0 1 ) ,0(0?)  ,DO(L3)  ,L(M4)  ) 

GO  TO  4 no 
240  COivTINTJf. 

CALL  RLGT41  ( D(  .•)  1 ) , 0(  G 7 ) , OG(  M3 ) , L(  N4  ) ) 

GO  TO  400 

250  CONTINUE 
TTYPL= \TY?L-50 

GO  TO  (251,252,253,764,400) ,KTY?L 

251  CALL  0UGP51  ( D(  0 1 ) , 0(  ' 7 ) , D0(  03  ) , L(  N4  ) ) 

GO  TO  400 

257  CALL  P'J. i ?5  2 ( 0(  £•]  1 ) , 0(  i" 7 ) , OD(  3 ) , L{  N 4 ) ) 

GO  TO  400 

253  CALL  PUG P5 3 (D(G1) ,0(02) , O O ( G 3 ) , L ( >3  4 ) ) 

•GO  TO  4 00 

254  CALL  °U.i?54  ( 0(  Hi ) , 0(  G 7 ) , DO(  N 3 ) , L(  34  ) ) 

GO  TO  400 
260  CONTIGUl 

y 2 Y *?  £ = K T Y P L - 5 0 

GO  TO  ( 261, 262,253) ,TT Y Pi, 

251  CALL  P5VRG1  ( E>(  Nl ) , r>(  -12 ) , OG(  3 ) , L{  -3  4 ) ) 

GO  TO  400 

262  CALL  r<SVr.62  ( 0(  ll  1 ) , 0(  N2 ) , OR(  N 3 ) , L(  iJ4  ) ) 

GO  TO  400 

263  CALL  PGVPS2  ( G( ul ) , D( G 2 ) , GO(  rf 3 ) , L(  N4 ) ) 
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GO  TO  <100 

270  KTYPE=KTYPL-70 

GO  TO  (271,272,400), KTYPL 

271  CALL  ACUM71  ( D( Ml ) , D( i42) , DD( N3) , L( rf 4 ) ) 

•GO  TO  4 00 

272  CALL  ACUX72  ( O(Nl) ,D( W2) , DD(N3) , L(N4) ) 

GO  TO  400 

200  CONTINUE 
KTYPb-STY PE-80 

GO  TO  ( 2 0L,  282,203,400)  , KTYPL 

201  CALI,  FILT31  ( D(  N 1 ) , D(  N 2 ) , DD(  X 3 ) , L(  N4  ) ) 

GO  TO  400 

202  CALL  FILT32  ( 0( N1 ) , D( N2 ) , DO( N3 ) , L( N4 ) ) 

GO  TO  400 

203  CALL  FILT83(0(N1)  ,0{N2)  ,OD(N3)  ,L(.M4)  ) 

GO  TO  400 

200  CONTI MOD 

KTY?E=KTYPE-99 

GO  TO  (201, 202, 203, 204, 205, 206, 297, 203, 209), KTYPL 
291  CALL  TE3T91  { D( Nl ) , D( M2) , OU  ( ,43 ) , L( W4 ) ) 

C 20 1 CONTINUE 
GO  TO  400 

202  CALL  CAD92  ( C(  Wl ) , 0( N2)  , DD( 143 ) , L{?4  4 ) ) 

GO  TO  100 

203  CALL  CAC03  ( D(  Ml ) , 0(  <2 ) , 00{  N 3 ) , L(  N4 ) ) 

GO  TO  40" 

204  CONTINUE 
GO  TO  A 00 

205  CALL  APU95(0('-U)  ,U(N2)  ,DD(N3)  ,L(N4)  ) 

GO  TO  400 
20  G GO  TO  <5  00 


207  GO  TO  400 

209  CALL  CAD98(0(rJl),0(i\!2)  ,00(^3), L(N4)) 
GO  TO  400 

200  CALL  CAC00(D(N1) ,D{ M2) ,DD(S3)  ,L(«4)  ) 
GO- TO  400 
300  CONTINUE 


KTYPL=KTY?L-1 DO 

GO  TO  (301,302,303,304,305,306,307,400) 

301  CALL  ACT  101  ( D(  Nl ) , D(  H2)  , CD(  :13)  , L(  N4  ) ) 
GO  TO  400 

302  CALL  ACT102  ( 0( N1 ) , 0(N2) , DD( N3 ) , L( H 4 ) ) 
■GO  TO  4 00 


303  CALL  ACTIO 3 
GO  TO  400 

304  CALL  ACT 10 4 
GO  TO  400 

305  CALL  ACT 105 
GO  fO  400 

306  CALL  ACTIO 6 


(D(iil)  ,0(X2)  ,QO(K3)  ,L(N4)  ) 
(O(wl)  ,D(N2)  , DD(  M3  ) , L(  :*i4 ) ) 
( D(  Ml ) , 0(  M 2 ) , OD(  X 3 ) , L(  N 4 ) ) 
(D(S1)  ,0(W-2)  , 0 D ( N 3 ) , L ( ;m 4 ) ) 


, !\TY?t 
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6.1.7  (Continued) 


GO  TO  400 

.307  CALL  ACT107  (D(N1)  ,D(N2)  ,DQ(tI3),L(N4)) 

400  CONTINUE 

IF(  INliL. ME.  O.OR.  INO,  GE.MEL)  R £ T CJ A M 
I NO* IN 0+1 

IF(IlirtTK)  1003,2000,  2000 
410  WRITE  (6,130) 

WRITE ( 6,090) 

000  FOari.YP(19X,31tfPROGHA.l  STOP  IN  SUBROUTINE  CO.-iP) 

STOP  6001 

420  ViRITE(  6,10  0)  I No 

100  FOR?»AT(  5X,42iITHisR£  ARE  HISSING  CONNECTIONS  IN  CO.i?  NO  ,15) 
WPITBf 6,050) 

STOP  6001 
170  FOR.') AT  (1615) 

13  0 FOfblAT  { 35H  TrIE  ELL:  jE>JT  CAROS  ARC  OUT  OF  ORDER  ) 

450  FORMAT  (3E10.0) 

500  FOf!OAT(  l'.lO,  5X,  6HC0OPfM5, 2X,  12MINTLGLR  DATA,  VA,  1615,  ) 

510  FORMAT ( / , 5 X , 1 6 H P f-: AL  DATA  CARO  f-  , I 5 , 2X , BE1 2.  4 ) 

END 


6.1-8 


6.11 


SUBROUTINE  BRAN11 


The  branch  subroutine  describes  a simple  lossless  Junction  in  the 
system,  which  can  have  any  of  the  configurations  shown  in  Figure  6.L1-1. 

The  program  is  generalized  so  that  th^.re  can  be  any  combination 
of  upstream  and  downstream  connections. 

June)  ion 

J ^ 


YQijnch 


Cross  Branch 


FIGURE  6.11-1 
BRANCH  CONFIGURATIONS 


6.11.1  Math  Model 


Starting  with  the  basic  line  equations 

P + Z(I)  x Q(I)  - C (I)  - 0 (1) 

where  C(I)  is  the  Ith  line  characteristic 
Z(I)  is  the  line  characteristic 

and  Q(I)  is  the  flow  out  of  the  line  into  the  branch  junction  (positive 
flow  is  into  the  junction)  . 

Rearranging  (1)  we  get 

Q (I)  = PX/Z(I)  + C(l)/Z(I)  (2) 


if  z>  * 0 

I - 1,N. 

PX^l/Zd)  -£C(1),Z«) 

1-1,  N 

Let  DT(3)^1/Z(I) 

1=1,  N 

CN  ->  C(I)/Z(I) 

1 1=1,  N 

PX  = CN/DTC3) 

which  is  the  solution  for  the  pressure  at  the  flow  junction. 

Q CD  = (c(D  - px/z(i) 

for  cavitation  conditions 

If  (PX.LT.PVAP)  or  IF  (DT(VCAV)GT.O)  PX  = PVAP 
Q (1)  = (0(1)  - PVAP) /Z ( 1) 

QNEW  = Net  flow  away  from  the  junction 
DT(VCAV)  = D(VCAV)  - QNEW 
DT(QCAV)  = QNEW 
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6.11.2  Assumptions 


The  math  model  does  not  incorporate  any  of  the  losses  which  normally  occur 
at  junctions  which  have  changes  in  diameter,  flow  direction,  or  flow  division. 

Line  losses  due  to  steady  state  friction  are  incorporated  into  the  values 
of  C(I)  but  are  not  corrected  for  the  average  flow  in  that  line  segment.  This 
will  tend  to  give  rise  to  inaccurate  pressure  losses  during  flow  acceleration, 
but  under  steady  or  pseudo  steady  conditions  there  will  be  no  error. 

6.11.3  Computation  Method 
Section  1000 

This  section  calculates  the  variable  D(3)  for  each  connection. 

Section  2000 

Section  2000  initializes  DT(VCAV)  and  DT(QCAV)  to  zero. 

Section  3000 

This  section  retrieves  values  for  Z(I)  @ C(l),  and  sums  C(I)/Z(1). 

From  this  PX  is  calculated  and  then  the  pressures  and  flows  are  returned  to 
the  line  ends  in  P(I)  and  Q(I)  if  the  pressure  is  greater  than  the  vapor 
pressure  or  if  there  is  no  cavitation  bubble  present  signified  by  DT(VCAV)=0 .0 . 

If  cavitation  condition  exists,  the  flows  are  calculated  using  PVAP 
at  the  junction  instead  of  PX.  The  net  flow  at  the  junction,  QNEW  is  then 
calculated  and  added  to  the  old  cavity  volume  DT(VCAV). 

The  values  of  DT(QCAV)  and  DT(VCAV)  are  stored  for  use  next  time, 
and  the  cavitation  model  will  continue  to  control  the  pressure  at  the  junc- 
tion until  the  pressure  rises  again  and  a series  of  negative  QNEWS  refill 
the  cavity,  and  then  the  simulation  returns  to  normal. 

6.11.4  Approximations 

The  only  computation  approximation  is  the  use  of  pseudo  Z and  C for 
an  unassigned  connection  # which  is  less  than  the  number  of  connections  to 
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the  branch  such  as  blanked  off  connection  will  be  most  unusual  in  practice 
and  the  error  will  not  be  noticed. 

6.11.5  Limitations 

The  limitations  of  this  subroutine  are  due  to  the  pressure  drop  errors. 

It  is  recommended  that  a series  of  special  type  branch  subroutines  be  added 
so  that  these  losses  can  be  taken  into  account.  This  particular  subroutine 
being  fast  and  simple  and  should  be  kept  until  the  other  subroutines  are  added- 
Additional  losses  can  be  simulated  by  adding  a pseudo  90  degree  elbow  or  bend, 
to  the  appropriate  line. 

6.11.6  Variable  Names 


NAME 

CN 

1 

N 

NCI 

PX 

DT(QCAV) 

QNEW 

DT(VCAV) 


DESCRIPTION  DIMENSIONS 

Temporary  Variable  CIS 

Integer  Counter 
Integer  Counter 
Number  of  Line  Connections 


Branch  Pressure  PS  I 
Previous  cavity  flow  CIS 
Net  cavity  flow  toward 

the  junction  CIS 
Cavity  Volume  IN**3 


For  variables  in  common  reter  to  Para.  3.3. 


« o n 


6.11.7  Subrourtlne  Listing 


SUBROUTINE  3 RAN  11  (D,QT,DD,L) 

: ***  REVISED  AUGUST  5,  1975  *** 

DOUBLE  PRECISION  DD 
DIMENSION  D( 1 ) , DT( 3 ) , DU( 1 ) , L(  1 ) 

COriMOK  KTELPL,UTOLPL,  IPT,  I POINT, NPTS,  INEL,  KNEL, WTOPL,ULPLT ( 61,3), 
1 PQLEG( 90,1?) 

COMmON/S  UU/  PARS  ( 1 5 0 , 9 ) , Pr  i ( 1 50  0 ) , Qa  (1500),  P(  3 0 0 ) , 0(  300),  C(300) 

1,3(  300)  , EHO(  20)  fS20RHO(  20)  , VI3C{  20)  ,3ULi'(  20)  ,TJ3.1P(  20)  , PVAP(  20) 

2, ATPRES,T, D£LT, TFINAL, PLTDEL, PI,TITLE( 20) , LEGS, ICON 

3, KTEViP(  99)  , LSTAfi T(  150)  ,NLPT(  150)  ,LTYP£(99)  ,’NC(99)  , INX,INZ 

4 , 1 N V , I S TE P , 1 i L I N £ , N E L , I rt D , I li M T R , a N LINE, A 1 1 L L , a N LE G , a !J N O D E , *-113  PL OT 
5 , /iNLPTS , NDS 
INTEGER  VC A V, OCA V 
D A TA  VC  A V , OC  A V/ 1 , 2/ 

I? (I ENTR) 1900, 2000,3000 
10 00  CONTINUE 

IP(  IiJEL.TE.0)  GO  TO  1500 


DT( 3 ) =0 . 0 
DT( VC AV) =0.0 
NCI=MC( IND) 

DO  1001  1=1, NCI 
1001  0T( 3) =OT( 3 ) +1 . 0/Z ( L( I ) ) 
RETURN 

1500  DT  ( VC  A V ) = POLE  G { I fc,  L , 1 1 ) 
RETURN 


2000  DT ( VCAV)  = 9. 0 
DT  ( 0C  A V ) = 0 . 0 
RETURN 

3000  t;CI  = NC(  IND) 

C N=0.0 

DO  3010  1=1, NCI 
CiJ=C  ( L(  I ) ) / 2 ( L ( I ) ) +CN 
3010  CONTINUE 

PX=CM/OT( 3) 


***  CHECK  TO  EEL  IP  IS  LT  ?VAP  OR  A 30? 


LE  IS  PRESENT 


C 


3020 

3025 

3030 

C *** 


IF  ( PX . LT . PVA P ( K'£ P (ISO)) 


• R . DV 


0T( VCAv) 


0 ) GO  TO  3025 


00  3020  1=1, TCI 
?(L(I)  ) = ?>' 

0(  L(I) ) = ( C ( L ( I ) ) - ? X ) / Z ( L(I) ) 

RETURN 

Oil  EN  = 0 . 0 

DO  3030  1=1 , NCI 

P(  L(  I ) ) = ?VA?{  T<TL.:P(  IND)  ) 

C(L(I)  )=(C(L(I)  )-?VAP(KTr.,.?(lND)  ) )/Z(L(I)  ) 
ONEw=OUEa'+0(  MI)) 

CALCULATE  THE  3U33Lt,  SI2E 
OT  ( VC  AV ) = OT  ( VC  A V ) -QN  W-i 
IP( DT( VCAV) . LT. 0. 0 ) DT( VCAV) =0 . 0 
DT(OCAV) =ONEW 
RETURN 
END 
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6.21  SUBROUTINE  VALV21 


VALV21  simulates  a simple  two-way  valve,  with  an  input  valve  position 
time  history.  Its  main  purpose  is  in  simulations  associated  with  test  rigs 
where  a fast  or  slow,  opening  or  closing  valve  is  used  to  generate  system 
transients.  It  can  be  used  to  simulate  directly  operated  solenoid  valves, 
or  balanced  poppet  valves,  but  not  those  which  have  displacement  characteristics 
such  as  two  stage  solenoid  valves  and  unbalanced  poppet  valves, 

A typical  valve  is  shown  in  Figure  6,21-1. 


Connection  No.  i 


ve  Displacement 


0 


Flow 


v — Connection  No.  2 


tip otKy  tv 


FIGURE  6.21-1 

TYPE  NO.  21  TWO-WAY  VALVE 
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6.21.1  Math  Model 


The  basic  equation  for  flow  through  an  orifice 

Q - AREA  * cd  * (2*(P1-P2)/RH0)1/2 

2 

where  AREA  - area  of  the  valve  orifice  in 
Cd»valve  discharge  coefficient 

RHO  » fluid  density  lbs  sec2/in^ 

Q = flow  in  CIS 
PI  ■=  inlet  pressure  PSI 
P2  •=  outlet  pressure  PSI 

From  the  line  equations 

PI  - cx 

P2-  Z2Q2+  C2 

using  a +ve  flow  convention  from  1 to  2 

where  Cl  - Con  #1  line  characteristic 

and  Z1  - Con  #1  line  characteristic  impedance 

Assuming  no  flow  loss, 

Q - Ql  - Q2 

Substituting  2 and  3 in  1 we  get 

Q2  ■=  VFAC (— Z1Ql  + C1  - Z2Q2  - C2) 

where  VFAC  - (AREA  * Cd)2  * 2/RHO 

Equating  the  flows  we  get 

q2+  q*(zi+  z2)  *VFAC  - (Cx  - C2)*VFAC  - 0 

Q2  + Q*VE  + VC  “ 0 


where 

VB  = (Z1  + Z2)  x VFAC 

VC  - <c2  - 


(1) 


(2) 

(3) 


C4) 


(5) 


(6) 

(7) 

(8a) 


C ) x VFAC 


(8b) 


The  restrictions  on  the  solution  are 


when  V ■ 0 Q = 0 

c 


which  gives 

Q » (-VB  + (VB**2-4*VC)**.5)/2 


6.21.2  Assumptions 

The  math  model  assumes  a square  law  characteristic  and  a constant  discharge 
coefficient  for  the  complete  flow  range,  which  in  practice  is  not  correct. 

At  very  low  flows  the  pressure  drop  tends  toward  a linear  characteristic, 
and  the  discharge  coefficient  varies. 

in  addition,  most  valves  have  inlet  and  outlet  passages  and  fittings 
which  add  to  the  pressure  drop  and  hence  modify  its  overall  characteristics. 
These  can  of  course  be  lumped  together  to  obtain  an  approximate  overall 
square  law  but  the  resulting  characteristic  would  not  fit  very  well  over 
the  complete  range  of  flows  and  valve  openings. 

To  avoid  these  errors  a more  complex  math  model  is  required,  and  this 
should  be  implemented  in  another  subroutine. 

6.21.3  Computation  Method 

A call  to  INTEUP  is  made  to  derive  the  valve  opening  from  the  input 
data  which  includes  a table  of  valve  positions  versus  time.  A first  order 
interpolation  Is  used  in  this  derivation,  second  or  higher  order  interpolations 
will  cause  unintended  valve  motion. 

Once  the  valve  opening  is  established,  the  valve  area  is  calculated, 
and  then  the  flow. 
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Since  this  is  a direct  calculation  there  is  no  difference  between 


the  math  model  and  the  calculation  technique  until  very  small  valve 
openings  are  reached.  To  avoid  division  by  zero,  valve  openings  of  less 
than  0.00001  are  ignored  and  the  flow  is  assumed  to  be  zero. 

6.21.4  Assumptions  - To  be  added  later. 

6.21.5  Limitations 

The  computation  is  limited  to  a linear  valve  area  versus  position 
relationship . This  apparent  limitation  can  be  overcome  by  inputting  a non- 
linear valve  position  versus  time  relationship  which  can  produce  any  desired 
area  versus  time. 

The  constant  discharge  coefficient  is  also  a limitation  but  since 
the  changes  in  discharge  coefficients  depend  on  the  particular  valve  configura- 
tion; this  limitation  is  not  easily  overcome. 

If  the  valve  slot  width  and  discharge  coefficient  are  input  as 
1.0  then  the  valve  position  table  becomes  a table  of  the  product  of  valve 
area,  times  the  discharge  coefficient,  versus  time. 

The  combined  effects  of  area  and  discharge  coefficient  can  then  be 
inputted,  but  this  will  still  leave  out  the  effects  of  changes  in  the 
orifice  characteristic  with  differential  pressure. 
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6.21.6  Variable  Names 


NAME 

DESCRIPTION 

DIMENSION 

AREA 

SS.  VALVE  AREA 

IN**2 

CONST 

SS.  VALVE  CONSTANT 

PSI/CT.S**2 

DELTP 

SS.  VALVE  PRESSURE  DROP 

PSI 

DIFF 

CHARACTERISTIC  DIFFERENCE 

PSI 

IOD 

ERROR  INDICATOR 

LI 

DUMMY  VARIABLE 

L2 

DUMMY  VARIABLE 

QX 

VALVE  FLOW 

CIS 

SGN 

SIGN  OF  FLOW 

VALY 

VALVE  POSITION- 

IN 

VFAC 

VALVE  FLOW  CONSTANT 

PSI/CIS**2 

VYMAG 

ABSOLUTE  VALUE  VALVE  POSITION 

IN 

FOR  VARIABLES  IN  COMMON  REFER  TO  PARA.  3.3 
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non 


6.21.7  Subroutine  Listing 


SUBROUTINE  VALV21  (D,DT,DD,L) 

C ***  REVISED  AUGUST  5,  1975  *** 

DOUBLE  PRECISION  DD 

COMMON  NTELPL,NTOLPL, I PT, IPOINT, NPTS, INEL, KNEL, NTOPL, NLPLT( 61,3) , 
1 PQLEG( 90,12) , LCS( 90,10) , ILEG( 1400) , PN( 90) ,0N(90) 

DIMENSION  D(24) ,OT(  2) ,DD{  1)  ,L(5) 

COMHON/SUS/ PARM ( 150,9) ,PM( 1500) ,QM( 1500) ,P( 300) ,Q( 300) ,C( 300) 

1, Z(  300) ,RHO{ 20) , S 20RHO( 20) , VISC( 20) , BULK( 20) ,TEM?( 20) ,PVAP( 20) 

2,  ATPRES,T, DELT,TFINAL, PLTDEL, PI , TITLE ( 20) , LEGN, ICON 

3 ,  KTEMP( 99 ) ,LSTART(150) ,NLPT( 150) , LTYPE ( 99 ) ,NC( 99 ) , INX, INZ 
4,INV,ISTEP,NLINE,NEL,IND,IENTPv,MNLINE,MNEL,MNLEG,MNNODE,MNPLOT 
5,MNLPTS,MDS 

IF  (IENTR)  1000,2000,3000 
1000  CONTINUE 

IF( INEL.NE.0)  GO  TO  1500 
L{  3 ) =9 

L(4)=9+(L(ll)+7)/8*3 

D(  3 ) = ( D( 1 ) *D(  2)  ) **2*  2/RHO(  KTEtlP(  IND)  ) 

L(  5)=L(  11) 

D(4)  = (Z(L(  1)  )+Z(L(  2)  ) )/2. 

D( 5)  = 1.0/D( 4 ) * * 2 
VALY=D(L( 4) ) 

IF( VALY. EQ. 0.0) GO  TO  1100 

DT( 1 ) -RHO( KTEMP( IND) )/( 2 . * ( D( 1 ) *VALY*D( 2 ) ) ** 2 ) 

DT{ 2) =0. 0 
RETURN 

1100  DT ( 1 ) = 0 . 0 

DT( 2) =1 0. E5 
RETURN 

****  STEADY  STATE  SECTION  **** 

1500  PQLEG( INEL, 8 ) =PQLEG( INEL, 8 ) +DT( 1 ) 

OX=PQLEG( INEL, 1) 

PQLEG{  INEL, 8 ) =PQLEG{ INEL, 6 ) + DT( 2 ) 

PQLEG( INEL, 11) =PQLEG( INEL, 11) - ( PQLEG( INEL, 2) *QX* ( DT( 2)+QX*DT( 1) ) ) 
RETURN 

2000  CONTINUE 
DT ( 1 ) = 0 • 0 
DT( 2) =0. 0 
RETURN 

3000  CONTINUE 
L1=L( 1 ) 

L2=L( 2) 

CALL  INTERP  (T, D( L( 3) ) ,D( L( 4) ) , 10,L( 5) , VALY, IOD) 

VYMAG=  ABS(VALY) 

DIFF=C{ Ll)-C( L2) 

IF ( DT{ 1 ) +DT( 2) »GT. 0 • 0 ) GO  TO  3300 
IF(VYMAG.LT. 0,00001)  GO  TO  3100 
VFAC=D( 3) *VALY**2 
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6.21.7  (Continued) 


QX=S IGN { VFAC*D( 4 ) * ( SQRT( 1+ABS ( DIFF)/VFAC*D( 5 ) )-l) ,DIFF) 

P{ Ll ) =C ( Ll ) -Z { Ll ) *QX 
P(L2)=C(L2)-Z(L2)*( -QX) 

Q(L1)=QX 
Q(L2)=-QX 
GO  TO  3200 
3100  CONTINUE 

P( Ll ) =C ( Ll ) 

P(L2)=C(L2) 

Q( Ll ) =0 . 0 
Q( L2)=0. 0 

3200  IF( P( Ll ) . GE. PVAP( KTEMP( IND) ) ,AND.P(L2) . GE. PVAP( KTEMP( IND) ) ) RETURN 
IF(P(L1).LT. PVAP( KTEMP( IMD) ) . AND. P( L2 ) . LT. PVAP( KTEMP( IND) ) ) 

+ GO  TO  3230 

IF(  P(  Ll ) . LT.  PVAP{  KTEMP(  IND)  ) ) GO  TO  3220 
3210  P2=PVAP(  KTEMP(  IND)  ) 

ZT=Z ( Ll ) 

Pl=C ( Ll ) 

IF(  C(  Ll ) . GT.  PVAP(  KTE»4P(  IND)  ) ) GO  TO  3500 
Pl  = PVAP(KTEMP(IND)  ) 

GO  TO  3600 

3220  Pl=PVAP(KTErtP(  IND) ) 

ZT=Z(L2) 

P2=C(L2) 

IF(C( L2) .GT. PVAP{ KTEMP{ IND) ) ) GO  TO  3500 
P2-PVAP( KTErfP( IND) ) 

GO  TO  3600 

3230  IF(P(L1)-P(L2) ) 3210, 3400,  3220 
3300  IF ( DT( 1 ) . GT. 0.0. AND. DT( 2 ) . GT. 0.0) GO  TO  3400 
IF ( DT( 1 ) . GT. 0.0) GO  TO  3220 
GO  TO  3210 

3400  Pl=PVAP( KTEHP( IND) ) 

P2=PVAP(  KTEi4P(  IND)  ) 

GO  TO  3600 

3500  IF( VYMAG.LT. .00001) GO  TO  3600 
VFAC=D( 3) *VALY**2 

QV=VFAC*ZT/2.0*(SQRT{ 1.0+4. 0*ABS ( P1-P2) / ( VFAC*ZT* * 2 ) )-l. 0) 
QV=SIGN(QV, P1-P2) 

IF( Pi . GT. PVAP( KTErfP( IND) ) ) GO  TO  3700 
GO  TO  3300 
3600  QV=0 • 0 

GO  TO  3750 

3700  P( Ll ) =C ( Ll ) -QV* Z ( Ll ) 

Q(L1)=QV 

3750  Q(L2)=(C(L2)-P2)/Z(L2) 

P(L2)=P2 

DT ( 2 } = DT  ( 2)-QV-Q(L2) 

IF( QV. EQ. 0.0) GO  TO  3350 
RETURN 

3300  P(L2)=C(L2)-QV*Z<L2) 
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6.21.7  (Continued) 


Q(L2)=QV 

3850  Q(L1)=(C{L1)-P1)/Z(L1) 
P(L1)  = P1 

DT( 1 ) =DT( 1 ) +QV-Q( LI ) 

RETURN 

END 
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6.22  SUBROUTINE  VALV22 


Subroutine  VALV22  describes  a generalized  four-way  valve  which 
can  be  a segment  of  a servo  actuator  (connected  to  it  by  lines)  or 
control  any  servo  or  utility  type  function. 

The  valve  position  is  derived  fion.  input  data,  tabulated  versus 
time.  The  actual  position  is  obtained  using  linear  interpolation  between 
the  nearest  two  data  inputs. 

The  valve  orifice  areas  are  derived  using  a variable  law  which 
can  effectively  describe  leakage,  open  center,  under lap  and  overlap 
conditions,  with  various  pressure  gain3. 

The  valve  calculations  are  treated  somewhat  differently  to 
other  components.  Pressures  at  the  valve  ports  are  obtained  using 
a matrix  technique  with  a iterative  solution.  This  method  can  easily 
be  extended  to  include  other  flow  paths  such  as  the  first  stage  flow 
for  an  electro-hydraulic  servo  valve. 

VALV22  will  also  be  expanded  in  the  future  to  include  the  effects 
cavitation  at  all  four  ports,  since  fast  openings  or  closing  valves 
are  a common  source  of  cavitation  at  return  and  load  ports,  and  even 
at  the  supply  port  under  high  flow,  low  pressure  conditions. 

6.22.1  Math  Model 

CALCULATION  OF  ORIFICE  AREAS 

Spool  and  sleeve  type  servo  valves  can  have  a variety  of  orifice 
configurations,  the  commonest  of  which  are  round  holes  and  square  or 
rectangular  slots. 

Because  of  radial  clearances  between  the  spool  and  sleeve,  there 
is  usually  a leakage  flow  when  the  orifice  is  completely  covered. 
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This  leakage  tends  to  round  the  ends  of  what  would  otherwise  be  a linear 
flow  versus  spool  position  characteristic.  In  order  to  simplify  the 
flow  calculations,  we  have  assumed  that  the  valve  area  is  an  equivalent 
area  which  allows  the  orifice  equations  to  be  used  at  all  times. 

The  orifice  equation 

Q - AREA*Cd*SQRT (2* (P1-P2) /RHO)  * SIGN  (P1-P2) 
is  used  in  the  form 

QNEW  » VA ( I ) * SQRAB  S (CALC  2(1) -CALC  2 (N  5 ) ) 
where  VA(I)  - AREA*Cd*SQRT(2/RH0)  * X 

and  CALC2(  ) are  the  pressures  at  the  valve  connections. 

To  obtain  the  valve  area,  for  a given  valve  position,  a characteristic 
curve  is  generated  based  on  the  projected  cut-off  position,  the  projected 
max  open  position  and  the  max  valve  area. 

The  maximum  valve  area  is  combined  with  the  discharge  coefficient 
and  the  SQRT(2/RH0)  to  give  an  orifice  resistance.  The  formula  used 
to  generate  the  characteristic  curve  is 

X - (.5  + XT/ (1  + ABS (XT*2)**Y)** (1/Y) 

where  O^X  4 1.0  for  all  values  of  XT. 

when  Y is  large  ie  64,  the  characteristic  curve  is  almost  a 
straight  line  between  projected  cut-off  and  projected  maximum  opening. 
Family  of  curves  for  different  values  of  Y is  shown  in  Figure  6.22-1 
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TYPE  NO.  22  FOUR-WAY  VALVE 


Con  No.  1 (Normally  Pressure) 


FIGURE  6.22.2 
VALV22  MATRIX  MODEL 
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CALCULATION  OF  PORT  PRESSURES 


A pseuedo  linear  admittance  G(I)  for  each  valve  port  is  calculated  from 
the  pressure  across  the  port  and  the  flow  through  it. 

G(I)  - DELTAP/Q(I) 

with  all  the  valve  admittances  evaluated,  the  circuit  shown  in  Figure  6.22-3 
is  solved  using  a matrix  method  to  obtain  the  pressures  at  P(l). 

The  calculated  pressures  are  then  used  to  obtain  updated  values  of  Q(l) 
and  the  iteration  is  repeated  until  the  changes  in  flows  becomes  negligible. 

6.22.2  Assumptions 

The  technique  used  to  solve  the  group  of  equations  does  not  have  any 
significant  problems  but  may  have  soma  stability  problems  when  the  cavitation 
model  is  added. 

The  pseudo  linearization  of  the  orifice  coefficients  is  valid  since  it 
is  updated  by  the  latest  flow  guess. 

6.22.3  Computations 
1000  Section 

A test  is  made  to  determine  if  a port  is  not  dimensioned,  which 
can  happen  if  it  is  a 3-way  or  2-way  valve.  If  the  area  is  zero  or  XT 
is  zero,  XT  is  set  to  .0001  to  prevent  the  computation  blowing  up  when  XT 
is  used  in  the  denominator. 

There  is  no  need  Cor  a 2000  section  since  it  is  not  necessary  to 
initialize  any  parameters. 
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1500  SECTION 


The  steady  state  section  is  straight  forward,  the  valve  impedance  is 
added  to  the  leg  PQLEG  (INEL.8)  for  each  call  to  a particular  connection,  and 
the  pressure  drop  across  the  particular  valve  pert  is  subtracted  from  PQLEG 
(INEL,  11). 

Note:  When  some  parts  are  closed  during  steady  state,  it  is  not  essential  to 

have  them  in  a leg  as  an  element.  If  the  connection  is  not  called  it  will 
only  add  a small  transient  flow  when  the  transient  section  is  started. 

3000  SECTION 

Figure  6.22-2  shows  a simplified  flow  diagram  of  the  3000  section. 

The  first  computation  is  a call  to  INTER? , to  find  the  valve  position. 

In  the  call  statement  D(L(5))  is  the  start  of  the  time  table, 

D(L(6))  is  the  start  of  the  valve  position  table  and  L(7)  is  the  number 
of  tabulated  values  in  each  of  the  tables,  a first  order  interpolation 
is  used.  XV  the  valve  position  at  time  T is  returned. 

In  the  next  section  a DO  loop  Is  used  to  calculate  XT  and  the 
value  of  VA(  ) . 

In  the  next  section  QNEW,  the  new  flows,  are  calculated  UBing  the 
old  pressures  which  were  loaded  into  CALC2(  ). 

The  calculated  flow  is  compared  with  the  previous  flow  value, 
if  the  absolute  value  of  the  difference  exceeds  .01,  an  error  indicator 
N is  set  to  1. 

Using  an  average  of  the  new  and  old  flow,  G(  ) is  calculated. 

A test  is  then  made  for  too  many  iterations  or  if  N = 0,  if  so  the 
calculation  is  considered  complete.  The  iteration  limit  is  not  normally 
needed. 

if  both  tests  fail,  the  next  section  loadB  the  CALC1(  ) and  CALC 2 ( ) 
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3000  SECTION 


CALL  INTERP  TO  FIND  VALVE  POSITION 


VALV22  PLOW  DIAGRAM 
FIGURE  6.22-4 


i i 


arrays  and  calls  SXMULT  to  obtain  new  values  for  the  pressures  at  the  valve 
ports  and  restarts  the  calculation.  The  last  section  stores  the  flows  and 
pressures  at  the  line  junctions  before  returning. 

6.22.4  Approximations  - Not  applicable. 

6.22.5  Limitations 

The  current  limitation  of  VALV22  is  the.  possible  need  for  a variable 
orifice  coefficient,  particularly  in  the  overlap  region. 

An  undesireable  feature  is  the  need  for  up  to  four  nodes  at  the 
junctions  with  the  lines  when  all  the  parts  have  a significant  flow. 

The  extra  four  nodes  require  a significant  amount  of  computation  and 
extra  storage  space  in  the  CALC1(  ) array  cf  SSDATA. 

6.22.6  Variable  Names 


NAME 
CALCIC  ) 
CALC 2 ( ) 
C<  ) 
GCAVC  ) 

I 

K 

LEI 

N 


DESCRIPTION 
Solution  array 
Solution  array 
Leg  admittances 
Pseudo  Cavity  Impedance 
Integer  counter 
Integer  counter 
Data  address  in  PARME 
Integer  counter 


DIMENSIONS 


CIS /PS  I 
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6.22.6  Variable  Names  (cont'd) 


NAME 

DESCRIPTION 

DIMENSIONS 

N1 

N2 

1 

N3 

) Address  variables  which  are  rolled  during 

calculation 

N4 

N5 

PDELTA  Leg  pressure  drop 

PS1 

QCAV( 

) Cavitation  flow  (not  used) 

CIS 

QNEW 

Leg  flow 

CIS 

VA(  ) 

Valve  orifice  impedance  array 

CIS/PS11/2 

XT 

valve  position 

IN 

XV 

Temporary  variable 
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6.22.7  Subroutine  Listing 

SUrjROUTINL  VALV22  (D,OT,OD,L) 

C****  RtVISbO  AUGUST  5,  1075  **** 

DOUOLb  precision;  do 

COi-i  ilOM  N T E L PL , N TO  L ? L , I PT , I PO I ri  T , ti  PTS  , 1 X E L , KN  L L , N TO  P L , N L P LT  ( 6 1 / 3 ) , 
1 PnLEG(90,12) ,LCS(90,10) ,IL£G(1400) ,PH(90) ,QN(90) 

CO«.iO.VSUVPAPu‘l(  150,0)  , Pit ( 1500)  ,QH  1500)  , P{  300)  ,0(  300)  ,C(  300) 

1,2(  300)  ,.RHO(  20)  ,S20RHO{  20)  ,VI3C(  20) ,3ULK(  20)  ,ThVtP(  20)  , PVA?(  20) 

2,  ATPRLS,T,  DLLT,TFIi‘iAL,  PLTOEL,  PI,TITLE(  20)  , LEGS , ICO.'i 

3,  KTbwP(  09)  , LSTART(  150)  ,NLPT(150)  ,L7Y?L(99)  ,NC(99)  ,ISX,I  IS 

4 , 1 \T  V , I ST  L P , *5  LI  b , M L L , I N D , I E MT  R , i-YA  L I 'A  b , A MEL, . iW  Lf,  G , <I« : J O Oh , .1 : i ? EOT 
5,rjNLPTS,ilDS 

DI.lfcWSICK  CALC  1(4,4)  ,CALC2(  4)  ,VA(  4)  ,G(  4)  ,QCAV(4)  ,GCAV(4) 

DIriKNSION  D(  1)  ,DT(1)  ,00(1)  ,L(  1) 

DATA  .v  1 , N 2 , 3 , i A / 1 , 2 , 3 , V 
DATA  CALC2,OCAV/3*0. 0/ 

I^f  IESTiO  1000,2000,3000 
C ***  INITIALIZE  COrtPOWUNT  CONSTANTS 
1000  CONTINUE 

IF  (IWtL.HL.Q)  GO  TO  1500 
Lb  I = ( (L(ll)+7)/?)*<? 

L(  6)  = 17+LFjI 
L ( 5 ) = 1 7 
L(  7 ) =L(  1 1 ) 

XV=D( L( 6 ) ) 

SET  UP  VALVE  CONSTANTS  FOR  STEADY  STATE 

DO  1004  1=1,4 
'1=4*  1-3 

0(S+2 ) =D(  R + 2)  *S2CRKO(  TPEn?(  I 'ID)  ) * . 65 
XT=  D ( N + 1 ) -0 ( i\  ) 

D(N)  = ( 0(; ;•!)+?.(  M + l ) )/2. 

I F ( D ( • ! + 2 ) . LE . 0 . 0 ) j( n+2 ) = . 00001 
IF(XT.tO.O.O)  XT-. 0001 
D(  •!  + ].)=  XT 

XT=( XV-D(R) )/D(  N+l) 

IF(D(rI  + 3)  .EQ.0.0)D(i!  + 3)  = 2.0 

0 T ( I + 4 ) - D ( M+2 ) * ( . 5 +XT/ ( 1 . +A08 ( XT*  2 . ) * * D ( A + 3 ) ) 

1 **(1./D(iJ  + 3)))  + .0001 
1004  QT( I ) =0 . 0 
RETURN 

r> 

c*** ♦steady  state  section  **** 

c 

1500  CONTINUE 

POL L?A=PQLEG(  I -lb L , 2 ) * ( P~>LtG(  I mlL,  1 ) /DT(  -CSLL+4  ) ) **  2 
P L k G ( I N E L , 1 1 ) = ? 1 0 L r.  G ( I :-i  b L , 1 1 ) - P 0 L LT  A 
^LhG  ( I M E L , 3 ) = POLb-G  ( I R t L , 8 ) + 1 . 0/  OT  ( V.  i b L+ 1 ) * * 2 
OT(  KNEE)  = PDLEG(  I, ILL,  1 ) *?OLF  G(  IN E L , 2 ) 

return 
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6.22.7  (Continued) 


C 

2000  DO  2002  1=5,3 
2002  DT  ( I ) = 0 • 0 
RETURN 
C 

C ***  TRANSIENT  CALCULATION  SECTION 
C 

3000  CONTINUE 

C ***  CALL  INTeRP  TO  FIND  VALVE  POSITION 

CALL  INTSRP(T,D( L( 5) ) ,D{ L( 6) ) , 10, L( 7 ) , XV, S ) 

r* 

C ***  SET  UP  VALVE  AREAS  AND  GLT  VALUES  FOR  C AND  Z 
C 

DO  3100  1=1,4 
N=4*I-3 

XT=(XV-D(N) )/D( N+l ) 

VA(  I)=D(N  + 2)*(  .5+XT/(l+A3S(XT*2.)**D(cJ+3)  ) 

1 **( 1.0/D(N+3) ))+. 00001 
CCAV( I ) =0 . 0 
3100  CONTINUE 
K=0 

GO  TO  3240 
3150  N=0 

:<>:■:  4i 


r *** 

c *** 

C 


320D 


CALCULATE 

CALCULATE 


NEW  FLOWS  AND  SET  COUNTER  FOR  TO  LARGE  AN 
VALUES  FOR  ORIFICIE3  ADMITTANCES 


ERROR 


DO  3200  1=1,4 
N 5=  1 4-1 

IP(S5.E0.5)  N5=l 

ONEW=VA( I ) *SORA3S ( C ALC  2 ( I ) -CA LC  2 ( N 5 ) ) 

DT ( I ) = DT ( I ) * . 34-QNLN*  . 7 

IF{  ADS  ( DT ( I ) -O'N L.v ) ,GT.0.001/(A3S(Q?Itr;)  4-1.0)  ) N = 1 
GCAV( I) =0.0 

IF  ( C A LC  2 ( I ) . Lf . PVA ? ( KT EM  P ( I ;D ) ) . OR . DT ( 1 4- 4 ) . C? . 0 . 0 ) GC A V ( I ) = 1 0 . 
CONTINUE 


C ***  CHECR  ERROR  INDICATOR  OR  TOO  MANY  ITERATIONS 
C 

IF( N.bM, O.OR. K.GT. 20)  GO  TO  3400 
3210  DO  3250  1=1,4 

32^0  G ( I ) =VA  ( I ) * * 2/  ( APS  ( DT(  I ) 4- . 0 0 0 0 1 ) ) 

C 

C ***  LOAD  CALC  1 AND  2 ARRAYS 

Q 

DO  3300  1=1,4 

IF  ( DT(l4-4)  .GT.O.0)  GCaV(  I ) =10.  E3 

CALC1(  I,Nl)*1.0/7(  L{  I)  ) 4- C(  rl  4 ) 4-G(  N1 ) 4-GC  AV(  I ) 

CALC 1 ( I , N 2 ) =-G (N 1 ) 


O O o 


6.22.7  (Continued) 


N5*Nl 

Sl*N2 

>34^5 

3300  COSMOS  wtVE  POST  WfiSSOBtS 

% ...  COM,  SI.W  TO  COOCJLOTt  V 

C COLL  S’^LTtCM-Cl.COLCa.I.^) 

GO  TO  3150 

3»00  CO-rt'Mt  ,;0  ,at  LIBK  OOMS3L 

...  RBtOtW  PRtSSOSw  0-  • 

no  3500  1*1  »* 

LI=L(I) 

P(rV<°?-(rT  -ClLC3|t))/7-(LI) 
|;p«!^O.r<M...LL.0.0,  TO 

IF  ( B 5 . :0 . 5 ) tI ) -01  ( I ) + W ( S 5) 

,CTtn 

C3450  .R1  t5  5 ) 

. c 2 FORil-Mt  1*' 1:51  ' 

"35OO  COl^TI  JUb 

RETW 

l so 


a * r 


* 

niiLTi 
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6.31  SUBROUTINE  CVAL31 


Subroutine  CVAL31  models  a simple  undamped  check  valve  shown  in  Figure 
6.31-1,  which  is  typical  of  the  many  check  valves  in  use  in  industry  and  on 
aircraft.  Although  the  actual  mechanical  configurations  vary  greatly  the 
basic  method  of  operation  stays  about  the  same. 

The  subroutine  is  not  limited,  and  can  be  used  for  any  number  of  check 
valves,  within  the  limits  of  the  common  storage. 

6.31.1  Math  Model 

The  check  valve  is  assumed  to  have  a variable  orifice  characteristic 
between  the  fully  open  and  fully  closed  positions. 

Reverse  flow  can  take  place  transiently  until  the  valve  closes. 

No  effort  has  been  made  to  include  the  effects  of  flow  forces  on  the 
poppet  since  these  are  not  very  well  defined  theoretically,  and  depend 
upon  the  actual  valve  geometry. 

The  model  used  to  calculate  the  steady  state  pressure  drop  assumes  a 
straight  line  flow/pressure  drop  characteristic  between  the  cracking  pressure 
and  the  fully  open  position.  The  cracking  pressure  drop  is  set  equal  to  the. 
inlet  area  divided  by  the  spring  preload  and  the  slope,  DT'5),  in  net  to 
the  change  in  pressure  required  to  fully  open  the  poppet  divided  by  the  flow 
at  that  condition  which  is 

DT(4)  - D(1)*CV*SQRT(DT(2))*S20RH0 
where  0(1)  is  considered  to  be  the  maximum  valve  area. 

The  orifice  resistance  at  the  fully  open  position  DT(10),  is  used 
when  the  flow  exceeds  DT(4).  Figure  6.31-2  shows  graphically  how  th±R 
is  done. 

In  the  transient  analysis  the  flow  through  the  valve  is  calculated  using 
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FIGURE  6.31-1 
TYPE  NO.  31  CHECK  VALVE 
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FIGURE  6,31-2 
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the  normal  valve  equations,  with  the  valve  orifice  area  being  proportional  to 
the  valve  displacement. 

The  valve  position  is  calculated  using  an  iterative  procedure. 

The  flow  is  first  calculated  using  the  last  position  of  the  valve,  and 
the  latest  values  of  the  line  characteristics. 

QA  - SIGN (CA* (-1+SQRT (I  + CB*ABS (CD IF) )) ,CDIF) 

Where:  CDIF  « C(L(1) )-C (L(2) ) 

CA  - DT (1)  * XNEW**2 
CB  - DT (2) /XNEW**2 

DT  (1) -CA*  (Z  (1.(1)  )+Z  (L  (2)  ) ) . 

DT(2)  - 2.0/ (CA*(Z(L/l))+Z(L/2)))**2  where  the  temporary  variable  CA  is 

CA  - (CV*D(1) /D (5) )**2/RUO 

With  Q known  the  two  pressures  can  be  calculated: 

PI  ■=  C(L(1))  --  CjA*Z(L(l)) 

P2  - C(L(2))  + QA*Z(L(2)) 

These  values  of  pressure  at  either  side  of  the  valve  are  then  used  to  calculate 
the  force  on  the  valve  poppet. 

F - (PI  - P2)  *D (1) -D (6) -D (4) *XNEW- . 05*VNEW 

Where:  D(ll  «=  Poppet  area 

D(4)  Spring  rate 
D(6)  - Spr'ng  preload 

The  .05  term  is  a damping  factor. 

The  poppet  acceleration: 

ANEW  F/D (3) 

» FORCE/Poppet  mass 
The  velocity  and  position: 

VNEW  - VLST  + (ALST  + ANEW)/ 2 * BELT 

XNFW  = XLST  + (VLST  4-  VNEW)/ 2 * DELT 
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XNEW,  the  new  calculated  position,  has  to  be  tested  for  position  limits. 

A lower  limit  of  0.00001  inches  is  used  to  allow  Borne  leakage  and  to  prevent 
division  by  zero  in  the  computation. 

6.31.2  Limitations 

The  model  does  not  account  for  displacement  flow  due  to  poppet  motion, 
for  the  variations  in  orifice  characteristics  with  poppet  position,  for 
secondary  pressure  drops  due  to  other  flow  restrictions  and  for  flow  forces 
on  the  poppet. 

The  simple  integration  method  which  was  chosen  to  save  computation  time 
and  cost  will  not  give  very  good  results  for  very  fast  transients  but  since 
the  poppet  will  normally  be  fully  open  or  closed  for  the  majority  of  the  time, 
the  above  limitations  were  considered  to  be  acceptable  for  a component  that 
could  be  used  many  times  in  a system. 

6.31.3  Computations 

1000  Section  - In  the  1000  section,  the  steady  Btate  valve  characteristics 
are  calculated,  ready  for  use  in  the  steady  state  entry,  since  simple  character- 
istics are  assumed.  The  computation  mainly  consists  of  calculating  and  storing 
the  temporary  variables. 

1500  Section  - This  section  is  called  from  LEGCAL  via  COHPE  using  either  CON 

#1,  if  the  check  valve  is  connected  so  that  the  free  flow  direction  is  the 

> 

same  as  the  positive  flow  in  the  leg,  or  CON  #2*if  the  valve  is  in  backwards. 


When  the  valve  is  closed, 

IENTR  - 1 & QS  « -1  or  IENTR  - 2 QS  - 1. 

The  valve  impedance  is  set  at  1.0E8,  which  la  essentially  open  circuit. 
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When  the  valve  is  fully  open  (IENTR  - 1,  QS  - 1,  or  IENTR  ■ 2,  QS  - -1) 
plus  Q > DT(4),  the  valve  orifice  impedance  DT(10)  is  added  into  the 
Q**2  term  of  LEGCAL  formulae. 

With  the  Barne  basic  conditions  but  with  Q > UT(4)  the  valve 
characteristics  are  assumed  to  be  a constant  pressure  differential, 
plus  a linear  flow/pressure  gain. 

When  the  flow  guess  is  negative  for  COW  it 2 the  constant  differential 
becomes  a pressure  rise. 

The  three  modes  of  the  check  valve,  closed,  partially  open  and 
fully  open  will  show  up  in  the  leg  constants  particularly  when  a negative 
flow  guess  is  tried,  there  will  be  a sudden  increase  in  the  formulae  * Q 1 
constant . 

2000  Section  - In  the  2000  section  new  variables  are  calculated  for 
use  in  the  transient  section  in  order  to  cut  down  on  running  time. 

3000  Section  - The  calculations  for  Q,  PI  and  P2,  and  PISTON 
acceleration  follow  the  theory  discussed  in  6.31.2  above. 

An  iterative  procedure  is  used  to  improve  the  calculation  using 
an  iteration  limit  of  si*,  or  an  error  of  less  than  .001  inches  between 
successive  values  of  XNEW,  to  terminate  the  iteration. 

Under  normal  operation,  the  valve  will  be  either  fully  open  or  fully 
closed,  so  that  there  will  be  no  iterations. 

The  calculated  value  of  XNEW  is  checked  and  if  it  is  at  a stroke  limit, 
and  if  the  calculated  acceleration  or  velocity  are  in  the  limit  direction 
they  are  uet  to  zero. 
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These  limits  are  not  applied  when  the  acceleration  or  velocity  are 
away  from  the  end  of  stroke. 

6. 31. A Assumptions 

The  assumptions  made  are  associated  with  the  valve  orifice 
calculations  and  the  lack  of  flow  force  effects.  These  assumptions 
speed  the  computati(  n but  can  he  a Bource  of  inaccuracy. 

6.31.5  Limitations 

The  main  limitation  is  the  lack  of  a cavitation  simulation  which 
can  cause  large  inaccuracies  when  the  pressures  drop  below  vapor 
pressure. 

6.31.6  Variable  Names 


Name 

ALST 

ANEW 

CA 

CB 

CD  IF 

CV 


Description 

Last  poppet  acceleration 
Latest  poppet  acceleration 
Orifice  variable 
Orifice  variable 
Characteristic  difference 
Discharge  coefficient 


Dimension 

IN/SEC**2 

1N/SEC**2 


•psi 
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Name 


Dimension 


F 

MM 

PI 

P2 

QA 

QS 

VLST 


VNEW 

XLST 

XNEW 


Description 
Force  on  valve  poppet 
Iteration  DO  loop  counter 
Con  #1  pressure 
Con  #2  pressure 
Valve  flov 
Leg  flow  sign 
Last  poppet  velocity 
New  poppet  velocity 
Last  poppet  position 
New  poppet  position 
Iteration  poppet  position 


LBS 

PSI 

PSI 

CIS 

IN/SEC 

IN/SEC 

IN 

IN 


XPREV 


IN 


nnnonnononnn 


6.31.7  Subroutine  Listing 


SUBROUTINE  CVAL31  ( D, DT, DO, L) 

C****  REVISED  AUGUST  5,  1975  **** 

DIMENSION  D(l) ,DT(1) ,DD(1) ,L(1) 

DOUBLE  PRECISION  DO 

C0M.10N  NTCLPL, NTOLPL,  I PT, I POINT,  NPTS,  INLL,  KM  EL,  HTOPL, HLPLT(  61,3)  , 
1 POLES  ( 90,12)  , LC5(9Q,10)  , IL6G(  1400)  , Pl‘I(  90)  , QN( 90) 

COf-hlON/SUO/ ?AR.-i ( 150,9)  , P.  1 { 1500)  ,9s(  1500)  , P(  300)  ,Q{  300)  ,C(  300) 
1,2(300)  ,R?]0(  20)  , 5 20RH0(  20)  , VISC(  20)  ,BULK(  20)  ,TE4P(  20)  , P VAP(  20) 

2,  ATPRES,T,  Q£LT,TFINAL,  PLTDEL,  PI,  TITLE  ( 20)  , LEGK,  ICON 
3, 5*TErtP(  99)  , LSTARTf  150)  , MLPT(  1 50 ) , LTYPE  ( 99  ) ,NC(99)  ,IKX,IMZ 
4 , 1 N V , ISTE P , NLI N E , ME L , I ND , I E NTR , ;4?J LI  M h' , t-itf E L , wslLEG , MlttiOOE , Av)  PLOT 
5 , MM LOTS , tiDS 

0(  1)  = INTERNAL  DIAMETER  (ISLET) 

D(  2 ) “INTERNAL  DIAMETER  ( OUTLET)  MOT  IS  USE 
0(3)  “POPPET  MASS 
D( 4 ) “SPRING  CONST AST 
n(5)«uAX  POPPET  DISPLACEMENT 
D( 5 ) “SPRING  PRELOAD 
DT ( 1 ) “CONSTANT  STORAGE 
DT( 2) “CONSTANT  STORAGE 

DT ( 3 ) = STORAGE  FOR  FULLY  OPEN  ORIFICE  COEF. 

Df(*1)  = STORAGE  FOR  PREVIOUS  POPPET  VELOCITY 
DT( 5) "STORAGE  FOR  PREVIOUS  &OPPET  ACCELERATION  . 

DT(6)=  STORAGE  FOR  PREVIOUS  POPPET  POSITION 
IP(IdNTR)  1000, 2^00, 30Cn 
11O0  CONTINUE 

IF(IMLL) 1120,1010,1500 
1010  CV=. 65 

D(l)“D(l)**2.*?I/4. 

1020  OT(l)=D(6)/D( 1) 

DT ( 2 ) = D ( 4 ) * D ( 5 ) /D ( 1 ) + DT ( 1 ) 

DT(3)=(PHO( uTLnD(IND) )/2.0)/(D( 1) *CV) **  2 
DT  ( 4 ) = D ( 1 ) * C V*  S OR?  ( 0T  { 2 ) ) * S 20 R i?0  ( GTE.i  P ( I M D ) ) 

DT ( 5 ) - ( DT( 2 ) -DT( 1 ) ) / DT ( 4 ) 

RETURN 

C SECTION  FOR  STEADY  STATE  CALCULATION 

1 500  CONTINUE; 

9.A  = P?LE0(INLL,1) 

OS=?0LEG( I GEL, 2) 

LCS ( I MEL , 6 ) “IS 
I F ( L(3) . E 0 • 1 • ) GO  TO  150  0 
C THE  VALVE  IS  COWNlCTeD  COMVL.JTIOGALY 

IF(L( 3) . ME. 0 ) GO  TO  1RO0 
I,?(OS.fcO.  1.  ) GO  TO  17  00 
GO  TO  1550 

C THE  VALVE  IS  CON’.-JLC'f&O  OACG.wARCS 

1500  IF(L(  3)  .ML.DGO  TO  1900 
I F ( OS . LT . 1 . 0 ) GO  TO  1700 
C THE  VALVE  IS  CLOSED 

15  50  POLES ( I'JEL,  5 ) = 1 . 0C$+P^LhG(  I MhL, *} 


\n  a wx 
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6.31.7  (Continued) 


X 


PQLEG( INLL,11)=P0LEG( I NEL, 1 1 ) -Oh* OS* 1 . 0E6 
RETURN 

1700  IF  (DA.LE.DT(4) ) GO  TO  1800 
C THE  VALVE  IS  FULLY  OPEN 

IF ( PQLLC( INLL, 3) .LT.DT { 4) ) POLEG( I NEL, 3 ) =DT( 4 ) 
DT{  6 ) = D(  5 ) 

POLEG( INEL, 8 ) =DT( 3) +PQL£G( INEL,8) 

PQLEG( In'LL,  1 1 ) =PQL6G( IN EL, ll)-OS*9A**2*DT( 3) 
RETURN 

C THE  FLOW  IS  LESS  THAN  THE  'FULL  OPEN  FLOW 

1300  POLEG( INEL, 11) =POLEG( INEL, 11)-DT( l)*OS 
1 - QA  * OS  * DT  ( 5 ) 

DT ( 0 ) = ( ( DT ( 5 ) * Q A ) / DT ( 2) )*D( 5) 

IF (?0LEG( INEL, 4 ) .GT. OT( 4 ) ) PQLLG( INEL, 4)=DT{ 4) 
P0LEG( INEL, 5 ) =POLEG( INLL, 5 ) -DT( 1 ) *OS 
POLLG ( I NEL , 6 ) = POLeG ( I ULL, 6 ) +DT( 5 ) 

RETURN 


£***** illegal  input  data  TERN  I NATES  PROGRA.  ***** 

10  00  WRITE(  0,09®) 

00ft  FOn,!AT(  10X,  33HPROGRA.J  STOP  IN  SUBROUTINE  CV.AL3 1 ) 
STOP  1531 


2000  CONTINUE 

0 ( 2 ) = D ( 1 ) / ( D ( 5 ) / ( 1 • 0 + D ( 5)  ) ) 

CA=(  CV*D(  1 )/D(  5 ) ) **?/RHO(  KT»;.iP(  I -’D)  ) 
DT  ( 1 ) =C  A*  ( Z ( L ( 1 ) ) +Z  ( L ( 2 ) ) ) 

DT ( 2)  = 2.0/(CA*(Z( L ( 1) )+Z(  L(  2) ) )**2) 
P?  ( 4 ) = 0 . 

DT  ( 5 ) = 0 . 

RETURN 


3000  CONTINUE 


CDIF=C(L( 1) )-C(  L(  2)  ) 

XLST=UT( 6) 

VLS T=  DT ( 4 ) 

ALST=DT( 5) 

XUEW-XLST 

VNLvv=VLST 
DO  3100  ,ki=1,6 
XPREV=XNEw 

I if  ( XN  hi  Vi . LI  • . 0 . 0 ) GO  TO  3 0 5 0 
xsp*( XNEW+. 0001) ** 2 
CB=PT( 2)/XSQ 
C A=DT( 1 ) *X5D 

0A=SIGN(CA* (-1+SGRT( 1+C 3* AES ( GDI F ) ) ) fCOIF) 
GO  TO  3080 
3050  r'A=0 . 0 

3080  P 1 =C ( L ( 1 ) ) - 0 A * Z ( L ( 1 ) ) 

P2=C ( L(  2 ) ) +OA* 2 ( L( 2) ) 

F = { P1-P2)  *D(  l)-0(  6)-0(  4)*XNEW-.05*VSrv.i 
Fl=.  43*  ( P1-P2)  *r>(  2)*XL:;T/(  1.+XL5T) 
•?1»2.*CV*A5S(  P1-P2)  *D(  2)  *XLS7/(  1 ,+XLST) 


/\n? 
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6.31.7  (Continued) 


C 


3100 

C 

009 

3150 


3 200 


3 4 00 
3500 


F=F-F1 
ANEW=F/D(  3) 

VN L‘W=VLS T+  ( AN EN  +ALST ) / 2 * DE LT 
XN  EW =XL5T+(  VN  Ev* + VLS  T ) / 2 * 0 E LT 
I P ( X W E W . L ' T . 0 . 0 0 0 0 1 ) X W E W * 0 . 0 
IF( XNLW.GT. C( 5) ) XNEW=D( 5) 

IF( ARS(XNBW-XPRLV) .LT. 0.001)  GO  TO  3150 
CONTINUE 

WRITE(6,99D)Pl,P2,F,OA,Z( L( 1) ) ,Z(L( 2 ) ) , C ( L( 1 ) ) , C( L( 2 ) ) 
FOR.iAT(10X,8F12.4) 

IF(XNEW.GT.O.Q)  GO  TO  3200 
IF ( ANEW . LT. 0. 0 ) DT(5)=0.0 
IF( VNLw.LT.O.O)  DT(4)=0.0 
GO  TO  3500 

1 7 ( XN  t;Vi . LT . D ( 5 ) ) GO  TO  3 4 9 0 
IF(AN*Jv3.GT.O.  0)  OT(  5)=0.0 
IF( VNtW.GT. 0.0)  OT{ 4 ) =0. 0 
GO  TO  3500 
OT  ( 4 ) = VN  L-\’ 

DT(  5)=AML.W 
0T(6)=X'JEw 
P(L(  1 ) )=F1 
?(  L(  2 ) ) = 92 
0(L(1))=QA 

"!(  L(  2)  ) =-OA  I 

iiETTJRN  / 

END 


6 . 32  SUBROUTINE  CREL32 


FIGURE  6.32*1 

TYPE  NO.  32  PRIORITY  VALVE 


Subroutine  CREL32  models  a priority  valve  shown  in  Figure  6.32-1. 

The  subroutine  models  the  priority  valve  as  a combination  check  and  relief 
valve.  The  check  and  relief  valve  are  considered  to  be  arranged  in  parallel 
between  connection  #1  and  it 2.  The  relief  valve  cracking  pressure  Is  referenced 
between  connections  it 2 and  It 3.  When  the  relief  valve  is  closed,  flow  is  allowed 
in  only  one  direction  from  connection  it  1 to  connection  112  through  the  check  valve 
which  prevents  flow  in  the  opposite  direction.  When  the  relief  valve  Is  open, 
flow  is  allowed  in  both  directions  between  connections  #1  and  itl. 


6.32.1  Math  Model 


The  priority  valve  has  several  modes  of  operation  depending  upon  the 
pressure  differential  between  connections  It 2 and  If 3 and  connections  #1  and  112. 

1)  F2  - P3  > relief  valve  cracking  pressure 

The  relief  valve  is  open  and  flow  is  allowed  in  either  direction  between 
connections  //I  and  //2. 

2)  P2  - P3  > reliei  valve  cracking  pressure  and  P2  - P3  > relief  valve 
reseat  pressure. 

If  the  reliei  valve  is  open,  flow  is  allowed  in  both  directions. 

If  the  relief  valve  is  closed  and  Pl-P2>  check  valve  cracking  pressure 
there  is  leakage  flow  through  the  relief  valve. 

If  the  relief  valve  is  closed  and  Pl-P2>  check  valve  cracking  pressure 
there  is  flow  through  the  check  valve  from  connection  111  to  connection  111. 

3)  P2-P3 < relief  valve  reseat  pressure 

P1-P2 < check  valve  cracking  pressure,  the  relief  valve  and  check 
valve  are  closed  and  there  is  leakage  flow  through  the  relief  valve. 

P1-P2 > check  valve  cracking  pressure,  the  relief  valve  is  closed 
and  there  is  flow  through  the  check  valve  from  connection  #1  to  connection  If 2. 

For  steady  state  calculations  the  relief  valve  is  assumed  to  be  open. 

A linear  relationship  between  flow  and  pressure  is  assumed  to  calculate 
the  pressure  drop  through  the  valve. 

PQLEG(TNEL,6)  = D(TZREL)  + FQLEG(1NEL,6) 

Q1  - PQLEG  (INEI, , 1) 

PQLEG (INEL, 11)  = PQLEG (INEL,  11)  - D(TZREL)*Q1*PQLEG(1NEL, 2) 
where,  PQLEG (INEL, 6)  is  the  total  impedance  of  the  leg. 
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D(TZREL)  is  the  impedance  through  the  relief  valve 
Q1  and  PQLEG(INEL,1)  is  the  flow  through  the  leg. 

PQLEG(INEL , 11)  is  the  upstream  pressure  of  the  leg. 

In  the  transient  calculations  the  pressure  differential  between 
connections  it 2 and  It 3,  and  it  1 and  it 2 are  compared  with  given  cracking 
and  reseat  pressures  for  the  relief  valve  and  the  check  valve  to 
determine  which  of  the  flow  conditions  described  above  exist  at  that 
particular  time  step.  Once  the  flow  condition  is  established  an  impedance 
based  on  this  condition  is  selected  and  used  to  calculate  the  pressures 
and  flows  at  connections  it  1,  it 2 and  it 3. 

Q(L1)  = (C (LI)  - C(L2))/(Z(I.l)  + Z(L2)  + ZI) 

Q(I,2)  - -Q(L1) 

Q(L3)  = 0.0 

P(L1)  = C (LI)  ~ Q(L1)  * Z (LI) 

P(L2)  =■  C(L2)  - Q(L2)  * Z(L2) 

P(L3)  “ C (C3) 
where: 

Q(Ll),  Q(L2) , Q(L3)  are  the  flows  at  connections  1,  2 and  3, 

Z(L1)  and  Z(L2)  are  the  impedance  at  connections  1 and  2, 

ZI  is  the  impedance  of  the  valve. 

P(L1),  P(L2)  and  P(L3)  are  the  pressures  at  connections  1,  2 and  3. 
6.32.2  Assumpt Ions 

The  relief  valve  is  assumed  to  be  open  during  the  steady  state 
calculations  to  allow  the  flows  and  pressures  to  balance  with  the  rest  of 
the  system. 

The  check  valve  is  assumed  to  open  and  close  instantaneously. 
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The  reseat  pressure  for  the  check  valve  is  assumed  to  be  equal 
to  the  cracking  pressure. 

6.32.3  Computations 

1500  Section  - In  the  1500  section  the  impedance  for  the  valve  is 
added  to  the  impedance  for  the  leg,  PQLEG  (INEL,6).  A new  upstream 
pressure  PQLEG , (INEL, 11) , is  calculated  using  the  impedance  of  the 
open  relief  valve. 

3000  Section  - In  the  3000  section  an  impedance  for  flow  through 
the  valve  is  selected  depending  upon  the  pressure  differentials  between 
connections  §2  and  #3  and  connections  //I  and  It 2.  This  impedance  is  used 
to  calculate  the  flows  at  pressures  at  each  of  the  connections. 

6.32.4  Approximations 
None 

6.32.5  Limitations 

The  CREL32  subroutine  does  not  include  the  effects  of  inertia 
or  damping  on  the.  valve  component;!.  Therefore,  use  of  the  CREL32 
subroutine  where  these  effects  may  he  significant  may  give  erroneous 
results . 


6.32.6  Variable  Names 


Variable 

D(CLOS) 

DELP1 

UELI’2 

D(IPCH) 

D(IPREL) 

D(IZCH) 


Description 

Relief  Valve  Reseat  Pressure 
Pressuie  Drop  Across  Connect.  2 and  3 
Pressure  Drop  Across  Connect.  1 and  2 
Check  Valve  Cracking  Pressure 
Relief  Valve  Cracking  Pressure 
Check  Valve  Impedance 


Units 

PST 

PSI 

PS  I 

PSI 

PSI 

PSI/CIS 


I 


'1 
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Variable 

Description 

Units 

D(IZLK) 

Relief  Valve  Leakage  Impedance 

PSI/CIS 

D(IZREL) 

Relief  Valve  Impedance 

PSI/C1S 

LI 

Connection  No.  1 

- 

L2 

Connection  No.  2 

- 

L3 

Connection  No.  3 

- 

NPOSCK 

Temporary  Variable 

- 

NPOS1 

Temporary  Variable 

- 

NP0S2 

Temporary  Variable 

- 

DT(POSO) 

Valve  Position  Indicator 

- 

DT (PI) 

Pressure  at'  connection  //!' 

PSI 

DT(P2) 

Pressure  at  connection  If 2 

PSI 

DT(P3) 

Pressure  at  connection  If 3 

PSI 

ZI 

Temporary  Variable 

- 

zv 

Impedance  of  the  Valve 

PSI/CIS 
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6.32.7  Subroutine  Listing 


SUBROUTINE  CRLL32  (D,DT,DD,L) 

C ***  REVISED  AUGUST  5,1975  *** 

DOUBLE  PRECISION  DO 
DIMENSION  D( 6) ,DT( 5) ,DD(1) ,L( 4) 

COM.iON  HTSLPL,  NTOLPL,  I PT , I POINT,  MPT S , ItfLL,  KNLL,  NTO?L,NLPLT(  61,3)  , 
1 ?QLEG( 90,12) ,LCS(90,10) , ILRG( 1400) , PN( 90) , Q« ( 90) , PLX( 90) 
COw.‘iOM/SUQ/PAR-i(  150,9)  ,P::(  1500)  ,Q;i(  1500)  ,P(  300)  ,Q(  300)  ,C(  300) 

1,  Z(  300)  , RHO(  20)  ,S2GRHO(  20)  ,VISC(  20)  ,3UI/<(  20)  ,TEnP{  20)  ,PVAP(  20) 

2 ,  ATPRES , T , CELT , TFINAL, PLTDEL, PI , TITLE ( 20 ) , LhGN , ICON 

3,  KTEi'»P(  99)  , LST\RT(  150 ) ,HLPT(  150)  ,LTYP£(99)  ,NC(99)  ,IHX,IN7, 

4 , 1 N V , I S T fc  P , N L I >i  b , U L L , I N D , I E M T R ,?1NLINL,  :-i  NLL,  rtN  L£  <3 , . i M NO  CL , .-i;i  ? LOT 
5 , iiNLPTS , -IDS 

INTEGER  POSO,CLOS, Pi, P2, P3,ZV 

DATA  I PREL/1/ , CLOU/  2/  , I Z RILL/ 3/ , IZCfl/4/ , IZ  LK/5/  , I PC H/  6/ , PCS 0/1/ 

1 ,Pl/2/,P2/3/,P3/4/,ZV/5/ 

IF ( ILMTR)  1000,2000,3003 
1000  CONTINUE 

OT ( POSO) =1.0 

IF  (INEL.NE.0)  GO  TO  1500 
IF ( L( 4 ) . LO. 0 ) GO  TO  I960 
IF(I'CV)  1030,1050,  1340 
1030  IP(  IW.£D.-L(  4 ) ) GO  TO  1045 
GO  TO  1050 

IF(  I 'iV.EO.L(  A)  ) GO  TO  1050 
L(4)-l 
GO  TO  1050 
1050  L( 4 ) =0 
1050  CONTINUE 
RETURU 
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STEADY  STATE  SECTION 
1500  i?  (:-:;itL-2)  ir>no,  1703, 1700 
1500  DI.iP-D(  13 RLL) 

I F ( L ( 4 ) . E 0 • 0 ) GO  TO  151.0 

OI,!P=D(  13  LF) 

DT(  POSO)  — 1 .0 
N*LC3(  I'-JLL,  3) 

PL  X ( i-J ) * 2 9 . 

QH ( :■’)=  D ( CLOG ) * 2 0 . - ? dldG ( I M ILL , 1 ) * P;'Lt.G ( I -ILL,  2) 

LC  S ( I i'H;  L , 7 ) = 5 

1510  ?OLLO(  IMEL,  6)  = DI.i P+P.?LEG(  INbL,  6) 

OI«POLfcG(  IN’LL,  1) 

DT(  Pi)  = POL  LG  ( I i-J  EL,  11) 

POLF.Gf  IMKL,  1 1 ) *??L£G(  I ;JbL,  1 1 ) -DI=-iP*OI*?OLL  G(  I GEL,  2) 
UT(  P2)*P0Lf.G(  IMEL,  11) 
nr(  zv)*oi.-iP 
LCS( IMEL, 7 ) =5 
1700  RETURN 
2000  CONTINUE. 

RETURN 

3000  CONTINUE 
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n n 


6.32.7  (Continued) 


3100 

3120 


3130 

31^0 

31?0 

3200 

909 


L1*L( 1) 

L2=L(  2) 

L3=L( 3 ) 

9(  L3)  = f).  0 
P( L3)=C( L 3 ) 

0T( P.3)=P(L3) 
DELP1=DT(?2)~QT(P3) 
0LL?2=DT( P1)-DT(P2) 
N?0S1=DEL?1/D( I PREL) 
NP0S2=DELPl/0(CL0S) 
N?OSCK=OI?.LP2/D(  IPCW) 

IF(  DT(  POLO) ) 3100,  3200, 3300 
IP(flPOSl) 3200, 3130, 3120 
2 1 =3 OPT ( OT(ZV) ) 

DT( POSO)=1.0 
GO  TO  3 'ion 
OT( POSO)=-l. 0 
IF(:m?OJCK)  3140, 3140,3150 
2 I = D(  12  L'-) 

GO  TO  3-100 
ZI=0(I2CH) 

GO  TO  3100 
WRIT.-  ( fi,  099) 

POR.-lAT(  10* , 33HPUOGRA.:  oTO? 


Sij.-5fiOfJTI.-2L  CPLL3  2) 


STOP  32 

3300  ( M PCS 1 ) 3200, 3320,  3310 

3 310  2 I = D ( 12  RLE ) 

DT(  P0'30)  = 1.0 
GO  TO  3-100 

3.320  I?(NP052)  3200,33-10, 3330 
3.330  2 1 =3 OPT ( OT ( Z V ) ) 

IF(ZI.L7. 2. 92)21=2. 92 
DT( POSO) =1.0 
GO  TO  3-100 
3340  21  = OT ( 2 V ) * * 2 . 

OT( POSO)-1.0 

IF ( Z I . GT. 1 100. ) OT( POSO) =-1.0 
GO  TO  3409 

3 4 90  G(  LI)  = (C(L1)-C(L2)  )/(?.(  Ll)+2(  L?) +21) 

0(L2)=-0(L1) 

P(  L 1 ) =C  ( L 1 ) - ~>  { L l ) * 7 ( Ll  ) 

P{  L.2)-C(  L2)-0(  L2)  *Z(  L2) 

CT( PI)  = ?(  Ll ) 

07 ( ? 2 ) = ? ( L2) 

OT( P3 ) =P{ L3 ) 

OT( 2 V) =Z I 

RTTK(  6,4  01-1) P03 1,  IPOS?, X POiiCX, D7{  POSO)  , DLLP1,DLLP 2 

4 010  FO R. , >\T ( 2 X , 6 « N PCS  1 = , 1 4 , 2 X , 6 h G ?OS 2=,  14, 2X,  7h.'l PO:5C *=,  14 , 2'!,  3L12.  4) 

WfiITl.(6,lon.0)  ?(L1)  ,0(L.l)  ,?(L2)  ,G(L2)  , 2I,C(  Ll)  ,C(  1.7)  ,C(  L3) 

4000  POR.-i.\T(  IX,  0L1  2. 4) 
fltijr;: 

LOO 


6.32-7 


6.33  SUBROUTINE  CVAL33 


Subroutine  CVAL33  lodels  a simple  undamped  one-way  restrictor  shown  in 
Figure  6.33-1,  which  is  typical  of  the  many  restrictors  In  use  in  industry  and 
on  aircraft.  Although  the  actual  mechanical  configurations  vary  greatlywthe 
basic  method  of  operation  stays  about  the  same. 

The  subroutine  is  not  limited,  and  can  be  used  for  any  number  of  one-way 
restrictors,  within  the  limits  of  the  common  storage. 

6.33.1  Math  Model 

The  one-way  restrictor  is  assumed  to  have  a variable  orifice  characteris- 
tic between  the  fully  open  and  fully  closed  positions. 

Reverse  flow  can  take-  place  ' r.msiently  through  the  variable  orifice  when 
tlie  valve  is  closing. 

The  model  used  to  calculate  the  steady  state  pressure  drop  assumes  a 
straight  line  flow/pressure  drop  characteristic  between  the  cracking  pressure 
and  the  fully  open  position.  The  cracking  pressure  drop  is  set  equal  to  the 
inlet  area  divided  by  the  spring  preload.  The  slope,  L)T(WSQ)  equals  the 
change  in  pressure  required  to  fully  open  the  poppet  divided  by  the  flow  at 
that  condition  which  is 

UT(INITQ)  = I.'(DIAIN)  *CV*SQRT (DT(  1 NTTDl') ) *S20R110(KTKMP  (1ND) ) 
wlie re  h(DTAlN)  is  considered  to  be  the  maximum  valve  area. 

The  orifice  resistance  at  the.  fully  open  position  l)T(l.l)SA),  is  used  when 
the  flow  exceeds  bl'( LNITC})  . Figure  6.33-2  shows  graphically  how  this  is  done. 

In  the  transient  analysis  the  flow  through  the  one-way  restrictor  is 
calculated  using  two  orifices  in  parallel,  with  the  valve  oritice  area  being 
proportional  to  the  valve  displacement. 

The  valve  position  is  calculated  using  an  iterative  procedure. 
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FIGURE  6.33-1 

TYPE  NO.  33  ONE-WAY  RESTRICTOR 


Pressure 


FIGURE  6.33-2 

OVAL  33  STEADY  STATE  PRESSURE  DROP  CHARACTERISTICS 
FOR  AN  OPEN  POPPET 
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The  flow  is  first  calculated  using  the  last  position  of  the  valve,  and 
the  latest  values  of  the  line  characteristics. 

DT(QT)  - X*<-1.  + SQRT ( 1 . + ABS(Y) )*SIGN (1. ,Y) 

Where:  X - ((3(L1)  + 2(L2))*CKT**2.) /2. 

Y - 4.  *(C(L1)  - C(L2))/(0KT*(a(Ll)  + 2(L2)))**2 
CKT  is  equal  to  the  sum  of  the  two  orifice  coefficients. 

With  Q known  the  two  pressures  can  be  calculated: 

FI  - C (L (1)  ) - I)T  (QT)  *Z(L(1)  ) 

P2  **  C(L(2) ) + DT(QT)*Z(L(2)) 

The  values  of  pressure  at  either  side  of  the  valve  are  then  used  to  calculate 
the  force  on  the  valve  poppet. 

F - (PI  - F2)  *D  (DIAIN)  - D (LOAD)  - D (SPRING) *XNEW  - .05*VNEW 
Where:  D(SPRING)  = Spring  rate 

D(LOAD)  - Spring  preload 
The  .05  term  is  a damping  factor. 

The  axial  flow  forces  on  the  poppet  in  the  one-way  restrictor  are  equated 
with  the  net  change  of  momentum  as 

FI  = 2. *CV*A3S (P1-P2)*DT(AUFAC) 

When : CV  ■=  Valve  discharge,  coefficient  (.65  assumed) 

Pl-?2  “ Pressure  drop  across  the  poppet 

DT(ARFAC)  = Area  factor  dependent  on  poppet  position 
The  total  force  on  the  poppet  is  then 
F = F-Fl 

The  poppet  acceleration: 

ANEW  - F/lKMASS) 

- FORGK/Poppet  mass 
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The  velocity  and  position; 

VNEW  ■*  VLST  + (AI.ST  + ANEW}/2  * DELT 
XNEW  - XLST  + (VLST  + VNEW)/2  * DELT 

XNEW,  the  new  calculated  position,  has  to  be  tested  for  position  limits. 

A lower  limit  of  0.001  inches  is  used  to  allow  some  leakage  and  to  prevent 
division  by  zero  in  the  computation. 

6.33.2  Assumption?; 

The  model  does  not  account  for  displacement  flow  due  to  poppet  motion, 
for  the  variations  in  orifice  characteristics  with  poppet  position  and  ior 
secondary  pressure  drops  due  to  other  flow  restrictions. 

The  simplest  integration  methodj which  was  chosen  to  save  computation  time 
and  cost,  will  not  give  very  good  results  for  very  fast  transients  but  since 
the  poppet  will  normally  be  fully  open  or  closed  for  the  majority  of  the  time, 
the  above  limitations  were  considered  to  be  acceptable  for  a component  that 
could  be  used  many  times  in  a system. 

6,3  3.3  Computations 

1000  Section  - In  the  1000  section,  the  steady  state  valve  characteristics 
are  calculated,  ready  for  use  in  the  steady  state  entry,  since  simple  charac- 
teristics are  assumed.  The  computation  mainly  consists  of  calculating  and 
storing  the  temporary  variables. 

1500  Section  - This  section  is  called  from  LEOCAL  via  COMPE.  If  the 
one-way  restrictor  is  connected  so  that  the  free  flow  direction  is  the  same 
as  the  positive  fl^w  in  the  leg,  1.(3)  equals  zero.  L(3)  equals  one  it'  the 
valve  is  in  backwards.  When  the  valve  is  closed,  the  steady  state  pressure 
drop  comes  from  the  restrictor  orifice. 
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When  the  one-way  restrictor  is  t'uily  open  plus  Q > DT(INITQ),  the  valve 
orifice  impedance  DT(TK2)  is  added  into  the  0**2  term  of  the  LEGCAL  formulae. 

With  the  same  basic  conditions  but  with  Q <_  DT(INITQ)  the  valve 
characteristics  are.  assumed  to  be  a constant  pressure  differential,  plus  a 
linear  lilow/pressurc  gain. 

When  the  flow  guess  is  negative  for  CON  ill  the  constant  differential 
becomes  a pressure  rfse. 

The  three  modes  of  the  restrictor,  closed,  partially  open  avid  fully 
open  will  show  up  in  the  leg  constants  particularly  when  a negative  flow 
guess  is  tried,  there  will  be  a sudden  increase  In  the  formulae  'Q1  constant. 

2000  Section  - In  the  2000  section  new  variables  are  calculated  for  use 
in  tile  transient  section  in  order  to  cut  down  on  running  time. 

3000  Section  - The  calculations  for  DT(QT)  , I’l  and  1*2,  and  poppet 
acceleration  follow  the  theory  discussed  in  6.33.2  above. 

An  iterative  procedure  Is  used  to  improve  the  calculation.  When  an 
error  of  less  than  .00L  inches  between  successive  values  of  XNliW  is  reached 
the  iteration  is  terminated. 

Under  normal  operation,  the  one-way  restrictor  will  be  either  fully 
open  or  fully  closed,  so  that:  there  will  be  no  iterations. 

The  calculated  value  of  XNKW  is  cheeked  and  if  it  is  at  a stroke  limit, 
and  if  Lite  calculated  acceleration  or  velocity  are  in  the  limit  direction 
they  arc  set  to  zero. 

These  limits  are  not  applied  when  the  acceleration  or  velocity  tire  away 
from  the  end  of  stroke  . 


6 . 1 ' . h Approximations 

live  approximations  made  are  associated  w' th  the  valve  orifice  calculations. 
These  approximations  speed  the  computation  but  can  be  a source  ol  inaccuracy. 
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6.33,5  Limitations 


The  main  limitation  is  the  lack  of  a cavitation  simulation  which  can 
cause  large  inaccuracies  when  t.he  pressures  drop  below  vapor  pressure. 
6.33.6  Variable  Names 


Name 
DT (ALST) 

DT (ARK AC ) 
ANEW 
D(LOEF) 
cv 

D(DIAIN) 

D(UIAOT) 

D(DIAOR) 

UlS 

DT(DPSQ) 

V 

I'.l 

DT(LNITDP) 
DT  ( INITQ) 
UT(K1) 
DT(K2) 
DT(LDSA) 

D (LOAD) 

D (MASS) 


Deocription 

Lust  poppet  acceleration 
Area  factor 

Latest  poppet  acceleration 
Orifice  discharge  coefficient 
D Lscharge  coefficient 
Inlet  diameter 
Outlet  diameter 
Orii'ice  diameter 
Poppet  displacement 
AP  divided  by  flow 
Force  on  valve  poppet 
Axial  flow  force  on  poppet 
Initial  valve  AP 
Initial  flow 
Orifice  constant 
Orifice  constant 

Spring  preload  divided  by  inlet  area 
Spring  pay Load 
Poppet  mass 


Dimension 
IN/SEC**2 
IN’1  *2 
IN/SEC**2 


IN 

IN 

IN 

1.N 

PSl/ClS 

LBS 

LBS 

PS1 

C1.S 


PS  l 


LBS 


LB-SEC**2 


IN 


Name 

D(POPDIS) 

IM 

??. 

QA 

QS 

DT CQT) 

D (SPRING) 

D1 (TK2 ) 

DT(VLST) 

VNEW 

DT(XLST) 

XNEW 

Xl’REV 


Description 

Dimension 

Max,  poppet  displacement 

IN 

Con  #1  pressure 

PS1 

Con  ill  pressure 

PS1 

Valve  flow 

CIS 

Leg  flow  sign 

- 

Total  valve  flow 

CIS 

Spring  constant 

LB/IN 

Orifice  constant 

- 

Last  poppet  velocity 

IN /SEC 

New  poppet  velocity 

IN/SEC 

Last  poppet  position 

IN 

New  poppet  position 

IN 

Iteration  poppet  position 

IN 

6.33.7  Subroutine  Listing 

S 03  ROUT  I 'Jb'  CVAL33  ( D,  DT,  DD,  L) 

C****  REVISED  AUGUST  5,  1975  **** 

C 00U3LK  PRECISION  DD 

DIiiliNSIOM  0(1)  , 0T(  1 ) , DD( 1 ) , L( 1 ) 

CO.  1 NON  rJTELPL,  UTOLPL,  IPf , I POINT,  NPT.S,  IrtKL,  KWEL , NT OPL , LPLT  ( 61,3), 
1 ?QL6G(  90, 12)  ,LCS(  90,10)  ,ILEO(  1400)  ,P«(90)  ,C*N(90) 

COiMON/SUtl/PA ON ( 150, P)  ,P;i(  1500)  ,04.i(  1500)  ,P(  300)  ,Q(  300)  ,C(  300) 

1,3(  300)  ,RHO(  20)  ,S20RH0(  20)  ,VI5C(  20)  ,,3(JLX(  20)  ,Tb.‘.P(  20)  , ?VAP(  20) 

2 , ATPR ES  ,T»  QE LT , T? 1 0 A L , PLTOfc £.,  PI , TITLE-  (20),  LECN , ICON 

3 , KTLVJ  P ( 9 0 ) , LST.\KT(  150)  , MLPT(  1 50 ) , LTYPE  { 00 ) , -mC{  0 9 ) , IXX,  INZ 
4,INV,  I:JTuP,  '3LI1'TL,  NL  L,  ISL',  I tsUTR,  --.NLI >!E , NULL, ,iHLLG,  .18'lOOb , . i'.i  PLOT 
5 , i iNLPTS , nDS 

I NT LG E R 01 A IN , 01 A OR, SPRING, P0PDI3 , CORF , DIAOT, OPS v,A3F AC , 

+ T ” 2 , DT , 00 L D , VL;> T , A LS T,XLST,0tLP,SU3 
c ****  $ _ ARRAY  **** 

DATA  01 A I :\'/l/ , DIAOT/  2/ , .-iASS/  3/ , S PS I IG/4/ , POPDIS/  5/ , 

+ LOAD/6/, DI\OR/7/,CGLP/ V 
Q * * * * ryj  _ A P P,A  Y * * * * 

DATA  7!?  2/1/ , Of/ 2/ , OCLO/3/ , VL3T/4/ , ALST/5/ , XLST/6/ , DEL  P/7/ , 

+ :a/  o/ , k ?./ 0/ , i n it  o ?/ 1 n/ , o ?so/ 1 1/ , Lns  v 1 2/ , 1 n ito/  1 3/ , 

+ AKFAC/1  VrSUO/lV 

C 0(1) -INTERNAL  OTA.IETER  (INLET) 

C D(  2) -INTERNAL  DIViKT&R  ( OUTLET) 

C D(  3) -POPPET  ..AGS 

C 0(4) -SPRING  CONSTANT 

C 0(5)  =.iA.\  POPPt.T  Oil- PLACE  1 EOT 

C D(  <5 ) -SPRING  T>i' t. LOA 0 

C 0(7) -ORIFICE  OIA.ihTi.R 

C D ( -7  ) = D I 3 C .-1 A RG t:  COE P PICT  EXT 

C OT ( 1 ) = STORAGE  POP  PREVIOUS  POPPET  VELOCITY 

C DT( 5 ) -STORAGL  FOR  PREVIOUS  POPPET  ACCELERATION 

C DT(6)=  STORAGE  P OR  PREVIOUS  POPPlT  POSITION 

IP( I&HTF)  1000,2000,3000 
100 a CONTINUE 

IP(  IMF.L)  1020,  1010,  1500 
10]  0 CONTI  RUL. 

CV-.65 

D(0IATN)=D(DIAIN) **2.*PI/4. 

0( DIAOT) -0(  DIAOT)  **2.*PI/-1. 

D(OIA09)-D(  DTAOli)  **2.*?I/4, 

0T(  SU  i)=D(  DIAOT) -D(  .DIACP) 

1-120  DT(Tfl)  = ( 2./f<HO(  NTe.;P(  I NO)  ) )**.  5*D(  PI AON)  *0(  COlF) 

DT  ( X 2 ) = ( 2 . / R : IC  ( XT  e 1 p ( I v D ) ) ) * * . 5 * D ( 0 1 A I v ) * C V 
DT(T’<2)  = ( P clO  ( XT  Ei ! ?(  I 'ID)  ) /?.)/( 0( DIAIN ) *CV)**2 
DT ( A P F AC ) = ( F<HO(  KTE.i  P(  1 3D)  )/?..)/(  D(  CIA. DR)  *C(  COlF ) ) **2 
or ( LDS A ) -D ( LOA  0) /D ( PI A I N ) 

DT(  INIT^P)  =D(  SPRING)  *D(  P070IS  )/D(  OIM'i)  + OT ( LD3A) 

DT  ( I .''IT  A)  =D(  DI A I N ) *CV*  3 ^T.T  ( P?(  I NITOP)  ) *320RhC(  XTLts?(  IXO)  ) 
mT(  DP£;O)  = 0(  SPRING)  *D(  POPOI.i)/(  D(  DIAI  !)  *D?(  IMTOP)  ) 

P CT'JR"-1 


f i * r? 7 r 
[ , ; / " <;i  l L 


6.33-8 


6.33.7 


(Continued) 


C SUCTION  FOR  STEADY  STATU  CALCULATION 

1500  CONTINUE 

OA=POLI-G(  INKL,  1) 

0S=POLEG(  INEL,  2) 

DT(OOLO)=o,i\*OS 
LC3( IMEL, 5 ) =05 
IF ( L( 3) .E0.1)GO  TO  1509 
C Til  Li  VALVE  IS  CONNECTED  CONVENTIONAL'/ 

IF ( L(  3 ) . Nl..  0 ) GO  TO  1900 
IFHS.bO.l.)  GO  TO  1700 
GO  TO  1550 

C THC  VALVE  IS  CONNECTER  0 AC-v.VAROS 

1600  IF(L(3) .NL.IJGO  TO  1000 
IF(QS.Lr.l.O)  GO  TO  1700 
C THE  VALVE  IS  CLOSED 

1 >' 5 0 POLEG( INKL,  0 ) =DT(  ARFAC ) +?OLEG(  I.HLiL,  3 ) 

PQLI,G(  lP»lsL,  11)»P0LCG(  IliLL,  ] l)-QS*CA**2*OT(  AKFAC) 

DT ( XLST) =0. 0 
RETURN 

1700  IF  ( OA . LE . RT( I M I TO ) ) GO  TO  100 0 
C THE  VALVE  IS  FULLY  OPEN 

i ? ( p ol  lg  ( i i:.  l , 3 ) . lt  . ot  ( i it-;))  le  g ( i = i l l , 3 ) = dt  ( i i to  ) 

0T(  ULST) = .R( POP oi S) 

? OL  t.  O ( I H E L , 9 ) = OT  ( T \*  2 ) + POL  EG  (INEL,  3 ) 

P OL  E G ( I U L L , 1 1 ) = ? U L E O ( I N h L , 1 1 ) - OS  * O A * * 2 * O T ( T R ? ) 

RE  TiJRS 


C THE  FLOW  IS  LESS  T !Ari  THE  ’ FULL  OPlM  FLO.;' 

13  00  POLES ( I ME  L, 1 1 ) = POLLC ( I MEL , i 1 ) - OT ( LOS  A ) *QJ 
1 -OA*OS*DT( OPSO) 

DT(  XL, ST)  = ( ( DT(PPSO)  *PA)/D T( I MITD?)  ) *0(  POPOIS) 

I F ( POL  EG  ( I H t L , 4 ) . GT . OT  ( I 0 1 T O ) ) P ■ OL  E G ( I *J  EL,  A ) - DT  ( I I TO ) 

? DL  E G ( I U L L , 5 ) = P 0 L LG  ( I ri  E L , 5 ) - OT  ( L OS  A ) * OS 
POLE  G(  IUEL,  G)=FOLi:JC(  I;.;CL,  5)+DT(  OPSO) 

RETURN 

C***** ILLEGAL  I '3 PUT  DATA  TER., I SATIS  FROGP.V.***** 

1900  UiUTtf  5,999) 

999  p O Pi 'i A T ( 1 9 X , 3 3 ri ? F OO R A . . STOP  I A SUBROUTINE  CVAL33) 

ST 0°  1531 
7000  CONTINUE 

OT ( 0 L L P ) = ( 0 ( D I A I N ) - D ( D I AOR ) ) / ( 0 ( ?0?0I3)/( l.+0( POPOIS) ) ) 
DT  { t:  2 ) = ( 2 . / R H 0 ( GT  E.  1 n { I SO)  ) )*  + .5*0(C0i  F) 

DT ( VLoT) =0.0 
OT( ALST) =0 . 0 
PLTUHN 

3900  CONTINUE 
ITEP.1  = 1 
L1=L( 1) 

L2=L( 2) 

:<ut  W = DT(  XLST) 

VM  l" -I  = DT  ( VL3T ) 


^pTT  ? 
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6.33.7  (Continued) 


A!Jl;W»DT(ALST) 

DIS=XNEW/D( POPOIS) 

DT( ARFAC)=DIS*DT( SUB) 

OT  ( T\*  2 ) = DT  ( !<  2 ) * DT  ( AH  FAC ) 

XPRL-iV=XNLW 
CKT=DT( K1)+DT(TK2) 

X=( (Z(Ll)+Z(L2))*CKT**2.)/2. 

Y=*l . * ( C ( Ll ) -C  ( L2)  )/(CKT*(Z(Ll)+Z(L2) ) )**2. 

SPAC=1 • +.AR8 ( Y ) 

DT(CT)=X*(-1.+SQRT(SPAC) )*SIGM( 1. ,Y) 

3050  CONTINUE 

Pl=C ( Ll ) -DT( OT) *Z ( Ll ) 

P2=C( L2)+DT( AT) *2( L2) 

F=(  P1-P2)  *D(  'DIM  a )-D(  LOAD)-C(  SPRING)  *XNEv?-.  05*  VNL»v 
F1=2.*CV*A33( P1-P2) *DT( ARFAC) 

F1=2.*CV*A3S( ?l-?2 ) * DT( OELP) *OT( XLST)/( l.+DT( XLST) ) 
F=F-F1 

AwLW*F/n{  i'iASM  ) 

VN LW  = DT ( VLS T)  + ( AN RW +DT ( ALST)  )/2*DELT 

xme^dt ( xlst)  + ( v:;i;w+ot ( vlst)  ) /2*delt 

I F ( KH  EVv . LT . 0 . 0 ) XU  EW  = 0.0 

IF(  XN trt . GT • D ( POPOIG) ) XKEW*T)(  POP OI. S ) 

Ip(  A3S(X;lt'.V-XPR£V)  .LT.  0.001)  30  TO  3150 
I F ( I Tf  R 1 . GE  . 2 5 ) V« P IT t ( * , 9 1 0 ) XN £W  , X PRE  V 
0 ] 0 FOR.-'*  AT  (MX,*  Xti  LW  =*  , 7.P  4 0 . 1 0 ) 

IF(  ITLR1.E0.  25) '30  TO  3150 
IT  E Rl  = I T ERl+1 
XPReV=XNl”'» 

OIS=XUEw/D(  POP  01 S) 

DT(  ARFAC)  =OI  i*OT(  3U3) 

GO  TO  3050 

3150  IF(XTJLw.GT.O.O)  CO  TO  3200 

I 7 ( Atf  LW . LT . 0 . 0 ) OT ( AL3T) =0.0 
I p ( VB  L.  ‘-i . LT.  0.0)  OT  (VLST)  =0.0 
GO  TO  3500 

3 POO  I F ( XNLw.LT.  0(  ?OPDI;5)  ) CO  TO  3400 
I F { AM  £'.< . GT  .0.0)  OT  ( A LST ) = 0 . 0 
I F ( V?  i LW  . GT . 0 . 0 ) OT  ( VLST ) = 0 . 0 
GO  TO  3500 
3 4 00  OT(  VLST)  = V’iEW 
DT(  ALST)*AMt-o 
3 500  DT ( XLST ) = XU ES 
P( Ll ) =?1 
? ( L 2 ) = ? 2 
C(Ll)=r>T(GT) 

0 { L 2 ) = - DT ( QT ) 

RETURN 

LCD 


6.34  SUBROUTINE  CVAL34 


Subroutine  CVAL34  models  a two  stage  relief  valve  of  the  type  shown 
in  Figure.  6.34-1.  This  is  a high  response  device  used  to  limit  pressure 
surges  and  to  compensate  for  slow  pump  pressure  controls.  The  subroutine 
can  be  used  for  any  number  of  relief  valves  within  the  limits  of  the 
common  storage. 

6 . 34-1  Math  Model 

The  relief  valve  is  assumed  to  h3ve  a variable  orifice  characteristic 
between  the  fully  open  and  fully  closed  positions.  The  effects  of  flow 
forces  on  the  poppet  are  not  included  since  these  are  not  very  well 
defined  theoretically  and  depend  upon  the  actual  valve  geometry. 

In  the  steady  state  section  the  relief  valve  is  assumed  to  be  closed 
witli  no  pilot  flow. 

In  the  transient  analysis  the  flow  through  the  valve  is  computed 
with  the  normal  valve  equations.  The  poppet  position  is  predicted  from 
the  previous  time  step  and  is  used  to  compute  the  valve  orifice  area. 

The  relief  flow  is  first  calculated  using  the  predicted  position 
of  the  valve,  and  the  latest  values  of  the  line  characteristics. 

QI  = SIGN (CA* (SQBT ( 1 .+CB*ABS (CD IFF) ) -1 . , CDIFF) 

where:  CDIl’F  = 0(1.1)  - C(L2) 

CA  = ( (ARRELF*CV) **2* (Z (Ll)+Z (L2) ) /RHO(K  TEMP (INU) ) 

CB  = 2 . *RHO (KTEMP(IND) ) / t (ARRELF*CV)**2* (Z (Ll)+Z (L2) )**2) 

CV  = Discharge  Coefficient 

ARREbF  = Valve  orifice  area  open  to  return  pressure 
if  the  prcdLctcd  poppet  position  is  zero,  the  flow  calculation  is 
bypassed  and  the  element  pressures  are  set  to  the  up  and  downstream  character- 
istic pressures. 


6.34-1 


Connection  No.  1 


Connection  No.  2 


FIGURE  6.34-1 

TYPE  NO.  34  TWO  STAGE  RELIEF  VALVE 
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FIGURE  6.34-2 


SCHEMATIC  DIAGRAM  FOR  TYPE  NO.  34  TWO  STAGE  RELIEF 

VALVE 


P(L2) 
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With  Qi  known  the  two  pressures  can  be  calculated: 

P (LI)  = C (LI)  - Z (LI)  * QT 
P(L2)  C(L2)  - Z(L2)  * QI 

When,  the  valve  is  open  or  the  difference  in  P(L1)  - P(L2)  is  greater  than 
the  relief  pressure,  the  latest  position  of  the  poppet  is  computed. 

A force  balance  on  the  poppet  yields  equation  (1) . 

FORCEpoppet  = (P (LI)  - DT (PCAV) )*D (ARPOP)  - DT (PXPOS)*D (KSPOP) 

- D(KZPOP)  (1) 

where 

DT(PCAV)  - Cavity  pressure  behind  the  poppet 
D (ARP OP)  - Poppet  area 
DT(PXPOS)  - Predicted  poppet  position 
D (KSPOP)  - Spring  constant  for  poppet  spring 
D(KZPOP)  - Poppet  spring  preload 
An  equivalent  circuit  schematic  in  Figure  6.34-2  can  be  drawn 
modeling  the  operation  of  the  two  stage  relief  valve. 

The  force  on  the  poppet  in  Equation  (1)  can  be  set  to  the  velocLty 
of  the  poppet  times  a damping  factor. 

FORCE  = VNEW  * D (DAMP)  = ^cavity  * DC  DAMP)  (2) 

P°PpeC  DCARPoiy- 


Equating  the  right  hand  side  of  equation  (2)  to  equation  (1)  yields  an  expres- 


sion 


for  flow 
^cavity 


in  the  relief  valve  cavit y-Qcavi ty • 

(P  (LI)  - DT  (PCAV)  )*  ri(ARFOp)‘1  _ DT  (PXPOS) *i)  (KSPOP)  *])  (ARPOP) 
D(DAMP)  D (DAMP) 


- D(KZPOP)  * 


D (ARPOP) 
D (DAMP) 


(3) 


i 
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The.  leakage  flow  (Ql)  from  the  high  pressure  side  of  the  poppet 


to  the  cavity  is 

Oi  - Kll)  - DT(PCAV) 

^ “ D(COELKP) 

where 

D(COELKP)  = Pin  leakage  coefficient  at  poppet 
The  pressure  drop  from  the  cavity  to  return  pressure  is: 

DT(PCAV)  - P(L2)  - D (COELKS)  + DT(COEFS) 
where 


(4) 


(5) 


Q2  - Flow  from  cavity  to  return  through  the  seat 

D(COELKS)  - Pin  leakage  coefficient  at  seat 

DT(COEFS)  - Constant  based  on  open  orifice  area  of  pin 
and  seat 


The  flow  balance  from  Figure  6.34-2  gives 


Q2  ■■  Ql  - Qcavity  (6) 

Equations  (3)  and  (4)  are  substituted  into  (6)  to  yield  an  equation 
with  two  unknowns  - Q2  and  DT(PCAV) . Equation  (5)  gives  DT(PCAV)  in 
terms  of  Q2  and  this  substitution  yields  the  following  equation: 


Q2 


UT(COEF)  + Q2. 
Dl’(COEFS) 


> / UT(COEF)  + \ 

\D  (COELKS)  '/ 


[DT (COEF) * (P (Li) -P (L2)  + * (DT(PXPOS)*U (KSPOP)  +» (KZP< 

D (DAM1J. i 


OP) ) 1 = 0 (7) 


After  solving  for  Q2  in  equation  (7)  the  pressure  in  the  cavity  DT(PCAV)  is 
determined  from  equation  (5).  Ql  can  now  be  solved  Tor  in  equation  (4)  and  the' 
flow  into  the  cavity  (Qcavity^  1®  easfly  computed.  The  poppet  velocity  is 
VNEW  = (Q1-Q2) /D(ARPOP)  (8) 

The  position  is  determined  by  a simple  integration 

XNEW  = DT(XPOS)  + (VNEW+DT (VL  ST) ) / 2 . *DELT  (9) 
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where 


DT(XPOS)  - previous  poppet  position 
DT(VLST)  - previous  poppet  velocity 
DELT  - Time  step 

XNKW,  the  new  calculated  position.  Is  then  tested  to  determine 
if  the  poppet  is  at  a limit.  A predicted  position  is  computed  for 
the  next  time  step  and  the  calculation  is  finished. 

6.34.2  Assumpt i uns 

It  is  assumed  that  there  are  no  variations  In  orifice  characteristics 
with  poppet  position,  and  the  flow  forces  on  the  poppet  are  ilogl. igible . 

The  simple  integration  method  was  chosen  to  save  time  and  cost.  Some 
errors  will  be  obtained  tor  very  fast  transients  but  this  is  considered 
acceptable  for  a component  that  could  be  used  many  times  in  a system. 

6.34.3  Computations 

LOOP  Section  - In  the  1000  section,  temporary  variables  are  calculated 
and  stored  In  the  1)  and  DT  arrays. 

1500  Section  - In  the  1500  section  the  .steady  state  values  used  In  the 
computation  of  leg  flow  are  computed  and  returned  to  the  PQhl',0  array. 

2000  Sect lun  - The  poppet  position  and  velocity  are  initialized  in  the 
2000  section. 

3000  Section  - The  calculat  ions  Tor  Q,  I* (1.1)  , l1  (1.2)  and  poppet  velocity 
follow  the  theory  discussed  in  6.31.2  above. 

The  velocity  of  the  poppet  and  hence  its  position  is  computed  If  the 
difference  in  P(U)  and  i’ 0,2)  is  greater  than  the  relief  pressure  or  the 
predicted  poppet  position  is  greater  than  zero. 


6.34-5 


1 


*he  calculated  value  of  XNEW  is  checked  to  determine  if  it  is  at  a 
stroke  limit,  and  if  the  calculated  velocity  is  in  the  limit  direction. 
Should  these  conditions  occur  the  limit  subroutine  will  set  the  velocity 
(VNEW)  and  position  (XNF.W)  to  zero.  These  limits  do  not  apply  away 
from  the  end  of  the  stroke. 

From  the  computed  value  of  XNEW  a new  poppet  position  is  then 
predicted  for  the  next  time  step. 

6.34.4  Approximations 

The  approximations  made  are  associated  with  the  valve  orifice 
calculations  and  the  absence  of  flow  force  effects.  These  approximations 
speed  the  computation  hut  are  a source  of  inaccuracy. 

6.34.5  Limitations 

The  main  limitation  is  the  lack  ot  a cavitation  simulation.  This 
can  yield  erroneous  results  whenever  the  pressures  drop  below  vapor 
pressure . 

6.34.6  Variable  Names 


NAME 

ALPHA 

d(arftn) 

1)(ARP0P) 

ARRELE 

D(ARSRP) 

BETA 


CA 

CB 

CD  IFF 


DESCRIPTION 

Dummy  variable 
Fin  rod  end  area 
Poppet  area 
Compu  d relief  area 
Area  of  seat  relief  port 
Dummy  variable 
Dummy  variable 
Dummy  variable 

Difference  in  characteristic  pressures 


DIMENSION 

1N**2 
IN**  2. 

IN*  *2 
IN**  2 


PS1 


i 4 
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NAME 

DESCRIPTION 

DIMENSION 

CHI 

Dummy  variable 

DT(COEK) 

Dummy  variable. 

— 

DT(COEFS) 

Dummy  variable 

— 

D(COELKP) 

Pin  leakage  coefficient  at  poppet 

C1S/PS1 

D (COELKS) 

Pin  leakage  coefficient  at  seat 

CIS/PS1 

CV 

Discharge  coefficient 

— 

D (DAMP) 

Poppet  damping  factor 

LB /IN /SEC 

DT(DIA1  ) 

Computed  relief  diameter 

IN 

DT(D1A2) 

Computed  neat  relief  diameter 

IN 

DT (GAMMA) 

Angle  of  relief  flow  relative  to  poppet 

DEC. 

D(KSPIN) 

Pin  spring  constant 

LB  /IN 

D(KSPOP) 

Poppet  spring  constant 

LB/IN 

D(KZPIN) 

Pin  spring  preload 

LB 

D(KZl’OP) 

Poppet  spring  preload 

LB 

DT(l’CAV) 

Pressure  In  poppet  cavity 

PSl 

DT (EXPOS) 

Predicted  poppet  position 

IN 

»«/ 

Qi 

Relief  flow 

CIS 

Q1 

Leakage  flow  through  poppet  and  pin 

CIS 

02 

Leakage  flow  through  seat  and  pin 

CIS 

1)T  (VLSI') 

Previous  poppet  velocity 

IN/ SEC 

VNEW 

Poppet  velocity 

IN /SEC 

D(XMAX) 

Maximum  poppet  travel 

IN 

XNEW 

Latest  poppet  position 

IN 

DT(XPOS) 

Poppet  position 

IN 

XP0S1N 

Pin  posit  ion 

IN 
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6.34.7  Subroutine  Listing 


C ***  RE VIS tD 


SUBROUTINE  CVAL34  (D,DT,OD,L) 

AUGUST  5,1975  *** 

DIMENSION  D( 1 ) , DT{ 1 ) , D0(  1 ) , L{  1 ) 

COMMON  MTbLPL , NTOLPL,  I PT,  I POINT,  UPTS,  INEL,  JCSCL,  N'J’OPL,  NLPL?  ( 61,3), 
1 ?QLCO(  9 0,12)  , LCS  (9  0,10)  , ILl:;G(  1 490)  , Pil(  90)  , O.'J (90) 

CO.iilON/SU9/PAi?M(  150,9)  ,P»i(  1500)  ,0.i(  1500)  , P(  300)  ,Q(  300)  ,C(  300) 

1,2(  300)  , RilO(  20) , S20RHO(  20)  ,VISC(20)  ,BULK(  20)  ,TE.i?(  20)  ,?VAP(20) 

2 , ATPREo , T , DELT , TP  I fl A L , PLT  DEL , ? I , TITLE  ( 2 0 ) , LEGH  , I COR 

3 , KT  b>vi  P ( 0 9 ) , LSTARTf  150)  ,ULPT( 150) , LTYPE ( 99 ) , UC( 99 ) ,INX,Ir!Z 

4 ,INV,  ISTEP,  ML  I ME , N E L , I M D , I GNTR,  MT1LINE,  1 1NLL, MSLtG ,/iSMODC  ,.-i.'i?LOT 
5 , MM LPT S , MOS 

INTEGER  ARPOP , XMAX , PR ELF ,COEL”? , CGELKS , COER ,COEF3 , PCAV , QCAV, 

+ APSRP,  ARPIM,  DIA1,  OIA2,  PXPOS,  XPOS,  VLST,  0AuP,0A3;-iA,CGLFA 
****  o - ARRAY  INPUT  VARIABLES  ****  \ 

DATA  ARPOP/1/,  Y.iAX/2/,  KS POP/3/ , KZ POP/4/ , PP,ELF/5/\,  COtLKP/6/ , 

+ CO  ELKS/  7/ , A F:S  P P/ft/,  A R.  PIN/0/,  KS  P IN/10/, UANP/11/ , 

+ OAG.iA/l  2/ 


**** 


DT  - COi-.PUTED 


i RI AS LEG 


**** 


\ 

.i 


DATA  OTA  1/1/ , 0 1 A 2/2/ , COEF/3/ , PaPOS/4/  , XPOS/5/ , VEST/6/ «■ 
+ IMP  P3 1/7/ , CORPS/ 3/, PC AV/9/ , CCLPA/1 0/ , OC AV/1 1/  \ 

IF(IEMTR)  1000,2000,3000 
1000  CONTINUE 

IP  ( I 'ILL. "31.,.  0 ) GO  TO  1500 
PT(UI\1)=D( ARPOP) 

D(  ARPOP)  = ( D ( ARPOP)  ** 2 ) *PI,/4  . 

DT  ( DIA  2 ) =D(  A R 3 R ’’ ) 

D(  A 1<G TV P)  = ( D(  ARSPP)  **2)  *?I/4. 
n(  ARPIM ) = ( O ( AR  PIN ) * * 2. ) * PI/4  . 

D { CA.ii'iA ) =D(  GAM; » A ) * PT/ 1 0 0 . 

B(  C-Ai  i.'.A  ) =3  IN ( D(  CA.i.iA  ) ) 

DT  ( I N P 23  IT  = D ( A H ? IN) /P(  KEPI  ) 

CV=. 65 
PET  UP’! 


STEADY  STATE  SECTION 
1590  CONTINUE' 

I?( KNEL.NL. I ) RETURN 

POL  LG  ( I ME  L,  6)  =3. 0 i:  6+  POLivG  ( I -i  L L,  9) 

0I=?CLLG( IMEL, 1) 

?0Li;G(  INt.L,  ll)=POLLG(  I >i  L L , 1 .1 ) - 3 . 0 L 6*  01  * PC  LEG  ( I S fc,  L,  2) 
RETURN 

2000  CONTINUE 

DT( 0CA7) =9 . 0 
OT(  CORFU ) = 0 . 0 
DT(  PC  A V ) = ? ( L(  1)  ) 

DT(  pyPOS)  =0. 

PT( X?OG)=9. 9 
AGIGN=1 . 0 
DT( VEST) =9. 0 

DT ( CO E F ) = 1 . / D ( C O I, L \ P ) - P ( A P PO P )**?./ O ( DA i . P ) 

DT  ( GOLF  A ) = D(  \HPOP)/P(  OA;.P) 


y 


fl  rx  a na 

t'i  v / 5 i 

/ i L'2  'b,  iLr 
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6.34.7  (Continued) 


WRITING, 900)OT(COfc») # DT( COtPA) 

RETURN 

3000  CONTINUE 
ll=L( 1) 

L.?=L{  2) 

ni=0.0 

I F ( DT ( QC  A V ) . GT .0.0) GO  TO  3110 
IF( DT( PXPOS ) . EO«  0.0) OO  TO  3100 

ARRtLF=(DT(  DIM)+D(  GArt.'iA)  *DT{  PXPOS ) *2.  ) **2*PI/4  ,-D(  ARPOP) 
CA=( (ARPELF*CV)**2*(Z(L1)+Z(L2) ) )/RnO(XTl>iP(I?!D) ) 

CH=  2 . * RHO(  KTE:  J P(  I NO)  ) / ( ( ARR£LF*C V ) * >2*  ( Z ( Ll ) +Z  ( L2 ) ) **  2 ) 
CDIFF=C { Ll ) -C{ L2 ) 

OI=SIGN ( CA* ( SQfiT( 1 . +C3*ADS ( CUIFP) )-l.) ,CDIFF) 

3100  CONTINUE 

?(L1)=C(L1)-Z( L1)*QI 
?(L2)=C(L?)+2( L2)*OI 
Q( Ll ) =01 
0(L2)=-OI 
P2=?(L2) 

I F ( ? 2 . GT . PVA  p ( fCTE.-i  ? ( I N D ) ) ) GO  TO  3150 
3110  IF(DT( PXPOS) .LQ. 0.0)00  TO  3120 

A R R I:.’  LF  = ( OT(  0IA1 )+D(  G.A.i  .1 A ) * DT  ( P XPOS  ) * 2 . ) * * 2 * ? 1/  A . - Q ( A R POP ) 
CA=(  (ARRlLF*CV)**2*(Z(  Ll  3 + 7.  { L2)  ) )/RHO(  XTbi;P(  IOD)  ) 

C C = 2 . * R H 0 ( K T c . i P ( I M 0 ) ) / ( ( A R P I..  L F * C V ) * * 2 * ( Z ( L 1 ) + 2 ( L 2 ) ) * * 2 ) 
COTc'F=C  ( Ll ) -C  ( L .2 ) 

01  =S  I Gil  ( C A*  ( SORT  ( 1 . +C  :?*  A AS  ( COI F F ) ) - 1 . ) , COI  FT) 

3120  CONTINUE 

P( Ll ) =C ( Ll ) -3 ( Ll ) *01 
?(  L2 ) = PVA?(  KTtr»?(  I/D)  ) 

P2=?(L2) 

0(  Ll ) =01 

0(L2)=(C(L2)-?(L2) )/S(L2) 

DT(OCAV)=DT( 0CAV)-(0( L2)+0I) 

I F ( DT ( OCA  V ) . LT . 0 . 0 ) DT  ( OC  A V ) = 0 . 0 
3150  CONTINUE 

WRITE ( 0,000)  P(  Ll.)  ,P(  L2)  ,D(  PRLLF ) ,C(L1)  ,C(L2) 

9 00  FOR/. AT  ( 1 V , 1 0 E 1 2 . 5 ) 

IF ( (?( Ll)-?2) . L T. D( PRLLF ) .A/P.OT( PXPOS ) . LO. 0 . 0 ) R LTUJW 
XP03IR=  ( ?(  L.1 ) - P2-D(  PRfLF ) ) *DT(  I/PPoI) 

IF ( X PCS I N . LL . 0 . 0 ) GO  TO  3 2 0 0 

A R P E L 17  = ( Q T ( LD I A 2 ) - .0  ( 0 A . i i A ) * X P 0 S I \ * 2 . ) * * 2 * ? I / 4 . 

ARRc.LF  = D{  ARbRP)  -ARRLLP 

0 T ( CO  fcFS ) ■ ( 2 . * ( C V*  ARAL  LF ) * * 2 ) / RH  3 ( XT  u-«  " ( I 0 D ) ) 

ALPHA=DT( COLF ) /OT( COEFS ) 

3LTA=1 . +DT( COL? ) /D( COl LKS ) 

C I i I = ( OT  ( COiiFA)  ) * { DT ( PXPOS  ) *D(  K3PO?)  +D(  G2  POP)  ) 

CH I=CMI+DT( COLF ) * ( P( Ll)-?2) 

CHI  = -Cl]I 

0 2 = ( - B L TA  +.-3  DR  T ( 3 ETA  * * 2 - -1 . * A L J A * A PS  ( C 1 1 1 ) } ) / ( 2 . * A L P:  i A ) 
02=SIG;!(  02, CHI) 


6.34.7  (Continued) 


CO  TO  3300 
3200  02-0.0 
3300  CONTINUE 

OT(  PCAV)  »Q2/0(  COELr'S ) +Q2**2/DT(  CO£FS)  + P2 
Q1»(P(L1)-DT(?CAV) )/D( COLLKP) 
VNEW=(Q2-Cl)/D(/\RPO?) 

XNEM-DT ( X POS ) + ( VNEW+DT ( VLST ) ) / 2 . * DLLT 
CALL  XL  I A I T ( XN  fc)W , VN  LW , AS  I GN  , 0 . 0 , 0 ( XN  AX ) ) 
DT { VLS  T ) = VN  EW 
DT ( PXPOS ) = 2 . * XN  LW-DT ( X PCS ) 

IF ( XN  EW .EQ.O. 0) OT( PXPOS ) = 0 . 0 
OT( XPOS ) -XNEW 


WRITE ( 6 , 91 0)  T 

010  FORiiAT(  10X,  * DATA  CALCULATED  AT  TI.-iE  =*,F12.5) 

WRITE  ( 6,000)  Xw  Lii , VN  L-a  , D1 , 02 , AL  PH  A , OLTA , CH I , XPCS I X , AP.ELLF , 01 
RETURN 


END 
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6.41  SUBROUTINE  REST41 


REST41  simulates  a fixed,  two-way,  orifice  restrictor  with  two  connections. 
The  coefficient  of  discharge  is  assumed  the  same  for  flow  in  either  direction 
so  that  the  unit  can  he  installed  backwards  i.e.,  either  end  can  be  called 
connection  It  1 . 


0 


Flow 


li M/4  0/M 


FIGURE  6.41-1 

TYPE  NO,  41  ORIFICE  RESTRICTOR 


► 

I 


6.41.1  Math  Model 

The  basic  equation  for  flow  through  an  orifice  it! 

Q - AV*CV*  (2*  (P1-P2)  /RHO  ( ))**  (1) 

2 

where  AV  » area  of  the  valve  orifice  in 
o CV  « discharge  coefficient 

2 4 

IUIO  ■ fluid  density  in  lbs  sec  /in 
Q - flow  in  CIS 
PI  » Inlet  pressure  in  PSI 
P2  = Outlet  pressure  in  l’SI. 

From  the  line  equations 

1-1  - -WC!  (2) 

1’2  = Z2Q2+C2  (3) 

using  a +ve  flow  convention  from  Pi  to  1* 2 

where  “ Con  ffl  line  characteristic 

Zl  “ Con  //I  line  characteristic  impedance 
■■  C2  " Con  02  line  characteristic 

Z 2 “ Con  02  line  characteristic  impedance. 

Assuming,  no  flow  loss'  (4) 

« " “ Q2 

Substituting  equations  (2)  and  (3)  in  (1) 

Q2  = (-Z1Q-;C1-Z2Q-C2)*CV2*AV2*2/ RhO(  ) (5) 

- : The  solution  to  this  equation  is 

Q = S 1CN  (CA*  (SlJKX (1  .+C11*ABS  (CD1FFJ )-l)  , CI31FF) 
where  CA  ~ (Z^+22)*CV  *AV  * 2 /KUO f ) 

CD IFF  = C - C? 


r 
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) 


CB  - 2*RH0(  ) / ( (AV  *CV2)*(21+2:2)2)  . 

PI  and  P2  are  then  calculated  using  the  Q value. 


pi  - Ci-  Zi*q 

(8) 

P2  - C2  + 22*Q 

(9) 

6.41.2  Assumptions 

1.  It  is  assumed  that  the  restrictor  does  not  have  any  ancillary 
parts  and  that  the  oil  volume  is  sufficiently  small  so  that  inte- 
gration is  not  required. 

2.  The  discharge  coefficient  is  considered  the  same  in  either 
flow  direction. 

6.41.2  Computation  Methods 
SECTION  1000 

Input  orifice  diameter,  D(l) , is  converted  to  area 
D(l)  = D(l)**2*Pl/4. 

The  steady  state  orifice  equation  constant  is  calculated  using  the 
formula: 

0(3)  - R1I0(  )/((U(2)*D(l))**2*2.) 

SECTION  1500 

o 

Leg  constant  for  Q*  is  updated  and  pressure  at  outlet  connection  is 
calculated  and  stored. 
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SECTION  2000 


Constants  for  the  dynamic  orifice  equation  are  calculated. 
D(3)  - ((D(1)*D(2)**2*(Z(L(1))+Z(L(2))))/RH0(  ) 

D(4)  - Z*KH0 ( )/(((D(l)*D(2))**2)*(Z(L(l))  + Z(L(2)))**2) 
SECTION  3000 

Flow  is  calculated  using  the  equation. 

QI  “ SIGN(D(3)*(SQRT(1.+D(4)*ABS(CDIFF))-1) , CDIFF) 

This  flow  is  used  to  calculate  pressures  PI  and  P2. 

P(L(1))  - C<L(1))-Z(L(1))*QI 
P(L(2))  “ C(L(2))  + QI*Z(L(2) ) 

6.41.4  Approximations 
None 

6.41.5  Limitations 


Subroutine  is  limited 

to  fixed  two  way  restrictors  having 

the  same 

discharge  coefficient  for 

flow  in  either  direction. 

6.41.6  Variable  Names 

NAME 

DESCRIPTION 

DIMENSIONS 

CDIFF 

Characteristic  Difference 

PSI 

D (1) 

Orifice  Diameter 

IN 

D(2) 

Orifice  Discharge  Coefficient 

— 

D(3)  1 

Orifice  Equation  Constants 

__ 

D(4)  J 

QI 

Flow 

CIS 
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6*41.7  Subroutine  Listing 


C *** 


1000 


c 

c 

1500 


2 00  0 


3000 


SUBROUTINE  REST41  (D,D7,0D,L) 

REVISED  AUGUST  5,1075  *** 

DOUBLE  PRECISION  DC 
DIMENSION  D(4) ,CT( 1) ,DD( 1) ,L( 2) 

COMilON  NTELPL, NTOLPL,  IPT,  IPOINT, NPTS,  ISEL,  XN?EL,NTOPL,  NLPLT(  61,3), 
1 ?OLEG(90,12) ,LCS(90,10) ,IL£C(1400) ,PN(90) ,ON(90) 

COi'ir'iON/ 3 UU/PA RU ( 1 50,9)  , Pri{  1500)  ,Qri(  15O0)  ,P(  300)  ,Q(  300)  ,C(  300) 

1, Z(  300)  , RHO(  20)  ,S20RtiO(  20)  ,VISC(  20)  ,3ULT(  20)  ,T£MP(  20)  , ?VAP(  20) 

2 , ATPRES , ?,  DE'LT,  TP  INAL,  PLTOEL,  PI , TITLE  ( 20)  , LEGS,  ICON 

3,  KTEhP( 99) ,LSTART( 150) ,KLPT( 150) ,LTYPE(99) ,NC(  99) ,INX, IHZ 

4 , INV,  I STEP,  SLINE , NLL,  IND , I ENTR, NNLINL , NtJEL,  A H LEG,  A NNODE , ij! 

5 , l jN  LPT 3 , .‘IDS 

IP( IEKTR)  1000,2000,3000 
CONTINUE 

IP  (INLL.NU.0)  CO  TO  1500 
D( 1 ) = D ( 1) **2*PI/4. 

D(  3)«BHO(KTf>.®(  IND)  )/(  ( D(  2)*D(  1)  )**2*2. ) 

RLTURN 


;plot 


STEADY  STATE  SECTION 
CONTINUE 

P?LEG( INEL, 0 ) =0(3 ) +POLEG( INLL,  0 ) 

CI=P0EEC( INEL, 1) 

POLEC(  I NEL,  1 1 ) =Pr'LEG(  INEL,  1 1 ) - D(  3 ) *01**  2*  P ">L£G(  I MEL,  "> ) 

RETURN 

CONTINUE 

D(3)  = ( ( D ( 1 ) * 0 ( 2)  )**2*(3(L(1)  )+Z(L(  2)  ) ) ) /PHO(  KTE.-i P(  I v'D)  ) 

C ( 4 ) = 2 * Rl  iO  ( KT  Ei  i P ( I N D ) ) / ( ( ( D { 1 ) * O ( 2 ) ) * * 2 ) * ( Z ( L ( 1 ) ) + 2 ( L ( 2 ) ) ) * * 2 ) 

return 

CONTINUE 

CDI FF=C ( L( 1) ) — C ( L{  2) ) 

•DI=SIGM(D(  3)  *(SORT(  1 . +D(  4 ) *A3S  ( COIFF)  )-l)  ,CDTPF) 
P(L(l))=C(L(l))-S(L(l))*oi 
P ( L ( 2 ) )=C(L{2) ) +0 1 * 3 ( L ( 2 ) ) 

0( L( 1 ) ) =01 
O ( L ( 2) )=-DI 
RETURN 
END 
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6.51  SUBROUTINE  PUMP51 


Subroutine  PUMP51  was  set  up  to  model  an  F15  pump,  which  is  basically 
a simple  in  line  piston  pump,  though  it  incorporates  many  mechanical 
refinements  and  sophisticated  design  features.  The  model  i.s  intended  for  use 
by  system  designers  and  is  primarily  aimed  at  the  study  of  pump  system 
stability  under  dynamic  loading  conditions. 

The  model  incorporates  the  effects  of  case  drain  dynamics,  since  the 
F15  pump  output  pressure  is  referenced  to  case  and  the  actuator  discharges  to 
the  case,  and  displaces  case  volume  when  it  is  moving.  The  treatment  of 
leakage  and  damping  characteristics  are  rudimentary. 

The  dynamics  of  the  hanger  are  complex.  For  the  model  the  effects  of  the 
dynamic  forces  on  the  actuator  are  included.  These,  forces  push  the  pump  to 
maximum  flow,  the  hanger  spring  provides  this  force  on  start-up. 

In  addition  the  hanger  offset  creates  a negative  flow  at  the  pump  inlet 
and  outlet  when  the  hanger  Is  moving  toward  maximum  flow,  and  this  has  a 
destabilizing  effect,  when  the  hanger  response  Is  very  fast. 

Some  of  the  hanger  forces  are  oscillatory  but  no  attempt  has  been  made 
to  describe  this  effect,  except  that  the  magnitude  is  sufficient  to  keep  the 
hanger  in  motion,  so  the  effects  of  static  friction  is  ignored.  This  is  an 
assumption  that  helps  the  simulation  by  keeping  the  integration  of  the  hanger 
velocity  a continuous  function,  between  its  mechanical  stops. 

The  compensator  valve  dynamics  are  a significant:  part  of  the  model. 

The  forces  on  the  valve  are  a combination  of  the  outlet  pressure  force  pushing 
against  the  case  pressure  and  spring  forces,  with  damping  and  flow  forces 
acting  in  either  direction. 

The  damping  and  flow  forces  are  estimates  using  classical  formulae. 
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Under  certain  conditions,  the  pump  compensator  valve  responds  to  the 
oscillatory  pressures  caused  by  the  pump  pulsations.  While  no  attempt  has 
been  made  to  describe  how  these  are  generated,  provisions  have  been  added  so 
that  their  effect  on  the  compensator  can  be  determined. 

The  compensator  valve  on  the  F15  is  overlapped,  but  under  certain 
conditions  the  pulsations  can  cause  the  valve  to  dither,  reducing  the  effect 
of  the  overlap  and  changing  the  response  characteristics  of  the  pump. 

The  damping  and  flow  forces  are  included  because  of  the  fast  response 
of  this  particular  valve, 

6.51.1  Math  Model 

A simplified  diagram  of  the  pressure  regulated  variable  displacement 
pump  is  shown  in  Figure  6.51-1. 

An  equivalent  circuit  schematic  diagram  for  the  pump  model  is  shown  in 
'■''"."L'e  6.51-2. 

P n;  n Displacement  Flow 

For  the  pump  inlet  the  displacement  flow  is  computed  as  follows: 

QPUMP  = D(DISP) *DT (PRPM) * (D1SACT) 

If  DUllSAi-II)  <DT (DISACT)  <D(DI.SAM) 
or  QPUMP  - QTfJ'.  ET  + QCASIN 

if  PIN!  ET;_-_  itlMIN 

Actuator  Pressu to 

The  actuator  pressure  is  based  on  the  contributions  of  the  spring  force, 
case  pressure,  outlet  pressure  and  pump  rpm,  plus  the  reaction  force  due  to 
velocity  damping  which  is  generated  when  the  hanger  is  moving.  The  input 
data  establishing  actuator  pressure  ump  operating  conditions  is  modified 

to  give  a simpler  algorithm  for  the  transient  calculations. 
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rPCASE 


COECIN 


INLET 

Z (LI) 

Cl«— A A A 1 

Ql’lJMP 


1*1  NLET 


PPCASE 


QPUMP 


Z(L2) 


PPCASE 

T 


* COEPLK 

VOLOUT 

• 

POOTLT  POUTLT, 


QPUMP 

mzN 


DIS*COEVl 

BULKA 


DIS*COEV2|  I 

I l 


V COEPLK 
, VOLOUT 

P0UTI  Tc 

— • PPCASE 
<^COELKA 

1 5W  PACTU0i,n 


<T  INERT 


PDAMP 


PAC’I'UR 

Valve  Open  Outlet  to  Actuator 


fPDAMP 
PAOTUR 

Valve  Open  Actuator  to  Case 


Z(h  3) 


COECAS 


QCASDU  - Sum  of  All  Plows  into 
and  out  of  Case 


PCASE 


■^BULKC 


SCHEMATIC  DIAGRAM  FOR  I'-l  ')  PUMP  MODEL 
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The  input  data  gives  the  actuator  pressure  due  to  the  spring  force  at 
maximum  flow,  D(PSPRIM)  and  at  zero  flow,  (D(PSPRIZ).  P (PZRPM)  is  input  as 
the  pressure  at  zero  actuator  displacement  and  3600  rpm.  It  is  then  modified 
to  give  the  pressure  at  zero  rpm  by  subtracting  from  it  the  slope  of  the 
pressure  versus  rpia  curve,  which  is  input  as  D(PSLRTM). 

Using  the  F-15  pump  experimental  data  and  the  actuator  pressuie  predic- 
tions generated  by  the  USER  program,  a formula  was  derived  which  related 
actuator  pressure  to  the  output  pressure/bulk  modulus  ratio. 

The  Lest  data  collected  at  different  fluid  temperatures  showed  a need 
for  temperature  correction  which  was  obtained  via  the  bulk  modulus.  A 
correction  factor  DT(BULKO) /DT(POUTLT)  is  used  where 
DT(BULKO)  = BULK(KTEMP(1ND) ) *DI DPVOA) /223000 

D(DPVOA)  is  the  reference  pressure  and  223000  is  the  reference  bulk 
modulus  of  MIL-H-5606B  at  3000  psi  and  130°F. 

The  reference  actuator  pressure  for  this  time  step  is  then  computed  as 
PACTUR  - D(PSPRIZ)+PDiSA*D(PSRlbi)  - V0LD*D (INERT) 

4-  PDISA* (D (PACCP) *DT(PRPM) **2  4 D(PDISAC)) 

4-  DT('PCASK)  4-  (D (PZRPM)  4-  D(PSLRPM)  *DT  (PRPM)  ) 

*DT  (BUhKO)  /DT  (FOUTLT) 

where 

PD  ISA  ---  P RED  TOTED  ACTUATOR  POSITION  BASED  ON  THE  PREVIOUS  POSITION  AND 
VELOCITY 

( = DT  (D 1 S ACT ) 4-DT  ( VEi  .ACT ) * DF.I  .T  ) 

V0LD  = ACTUATOR  VELOCITY  ( IN /SEC) 

D( PACCP)  - D (PACCP) / (D(DISAi  )*3600**2) 

D( PACCP)  IS  INPUT  AS  THE  PRESSURE  DUE  TO  PISTON  ACCELERATION 
AT  3600  RPM  AND  MAXIMUM  STROKE 
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D(PSPRIM)  = (D(PSPRIM)-D(PSPRIZ) ) /D(PISAM) 


D(PSPRIM)  IS  INPUT  AS  ACTUATOR  PRESSURE  DUE  TO  SPRING  FORCE 
AT  MAXIMUM  PUMP  DISPLACEMENT 

D(PDISAC)  = (D(PDISAC)-D(PZRPM) ) /D(DISAM) 

D(PDISAC)  IS  INPUT  AS  ACTUATOR  PRESSURE  AT  3600  RPM  AND 
MAXIMUM  PUMP  DISPLACEMENT 

D(PZRPM)  * D(PSRPM)-D(PSLRPM)*3600 

D(PZRPM)  IS  INPUT  AS  ACTUATOR  PRESSURE  AT  3600  RPM  AND 
ZERO  PUMP  DISPLACEMENT 

The  actuator  pressure  and  damping  characteristics  are  important  variables 
since  they  govern  how  fast  the  pump  goes  from  zero  to  full  flow.  No  easy 
way  exists  to  obtain  these  values  accurately  from  purely  dimensional  data. 

The  HSFR  program  is  able  to  get  within  30%  of  the  measured  actuator  pressure 
and  gives  reasonable  predictions  of  the  variations  with  temperature  and  rpm. 
Measurements  of  actuator  pressure  and  damping  characteristics  require  a 
complex  set  of  instrumentation  and  analysis  of  the  data,  to  extract  the  variables 
would  require  inspired  judgement.  Therefore  a reasonable  initial  actuator 
pressure  D(PZRPM)  which  Includes  estimated  values  for  the  contributions  of 
the  spring  is  800  psi.  Other  contributions  to  actuator  pressure  are  input  as 
zero . 

Compensator  Valve 

The  compensator  valve  position  is  assumed  to  be  directly  proportional 
to  the  differential  pressure  between  outlet  and  case.  The  lag,  due  to  the 
valve  damping  and  hanger  inertia  is  included  in  the  computation  of  the 
actuator  pressure  as  shown  in  the  INERT  and  DAMP  terms  of  Figure  6.51-2. 

The  valve  spring  rate  D(INPPSI)  is  input  in  lbs/in  and  converted  to 
in/ps i, 
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D(INPPSI)  = D (AJK.COM)  /D  (INPPSI) 

The  differential  pressure  at  which  the  valve  opens  from  outlet  to  actuator 
D(DPVQA)  is  used  to  determine  the  valve  position.  Two  pressures  POUTMX 
and  POUTMX  are  derived,  POUTMX  is  the  maximum  outlet  pressure  that  can  be 
obtained  assuming  zero  flow  from  the  outlet  to  the  actuator. 

POUTMX  = (C2/Z (L2)  + QPUMP  + DT(PCASE)*D(COEPLK) )*Z0UT 

where 

ZOUT  = Z(L2) / (1. 0 + Z(L2)*D(C0EPLK)  + Z(L2) *D(V0L0UT) ) 

QPUKP  = DT(QINLET)  + QCAS1N  + QOSIN 
The  ZOUT  term  includes  the  impedance  of  the  outlet  volume. 

The  minimum  pressure,  P0MTM1,  which  is  the  outlet  pressure  when  the 
valve  is  just  about  to  open  is  computed  as: 

P0UTM1  = D(DPVOA)  + DT(PPCASE) 

where  DT(PPCASE)  is  the  predicted  case  pressure  for  the  current  time  step. 

The  actual  outlet  pressure  lies  between  these  limits  and  is  obtained  by 
iteration.  The  valve  orifice  area  is  calculated  for  any  position  of  the 
valve  and  the  inlet  port.  The  valve  displacement  for 
POUTMX >POUTMT  is 

DIS  = (DT(POUTLT)  - POUTMI ) *D  ( INPPSI ) / (D (FLOFRC ) * (DT ( PQUTLlO  DT(PACTU)) 

+1.0) 

where 

D(FLOFRC)  = 2*D (WIDTH)*]} (INPPSI)  * (D(C0EVL1)  **2)  *.  358/U  (AK.COM) 


The  orifice  area  is  easily  computed  since  the  F-15  pump  has  square 
metering  ports. 
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When  the  valve  is  within  the  overlap  region,  the  valve  flow  is  set  to 
zero.  No  allowance  is  made  for  leakage  due  to  diametrical  clearance  within 
the  valve. 

Since  the  F-15  pump  is  essentially  a closed  loop  servo,  a gain  term  was 
calculated  as: 

GAIN  = 0. 7/ (l.+20.*DT(C0EVl)*D(INPPSI)*Z(L(2))) 

where 

DT(COEVl)  = D(C0EVL1) *S20RHG (KTEMP (IND) )D (WIDTH) 

For  the  initial  guess  of  outlet  pressure  DT(POUTLT)  is  computed  at 
DT (ITUP) *P0UTMX  + DT (M1TUP) *PGUTM1 . (DT (ITUP) -GAIN,  DT(MITUP) -1 .-GAIN) 

This  pressure  is  used  to  compute  the  valve  position,  area,  and  flow,  DT(QACTU) , 
into  the  actuator.  The  actuator  flow  is  then  used  to  recompute  the  pressure 
TPOUT  = FOUTMX  - DT  (QACTII)  *Z0UT 

A check  is  made  to  see  if  t. lie  recomputed  flow  is  within  .05  psi  of  the  pressure 
valve  and  if  it  is  not,  the  outlet  pressure  is  updated  by 
DT(POUTLT)  = DT (POUTLT) *DT (M1TUP)  + TP0UT*DT (ITUP) 

The  choice  of  the  DT(MITUP) /DT(ITUP)  ratio  and  the  initial  guess  ratio 
of  DT(ITUP)/DT(MXTUP)  was  made  using  an  actual  closed  loop  gain  for  the  K-15 
pump.  For  other  pumps,  adjustments  of  these  ratios  could  reduce  the  number  of 
iteral Ions  required  to  achieve  a balance.  The  tolerance  of  .05  psi  could 
also  be  increased  with  little  penalty. 

Flow  From  Actuator  fiston  to  Case 

When  P0UTM1>P01,TMX  the  valve  is  either  closed  or  open  from  actuator  Lo 
case.  I’OUTMl  is  changed  to 

POUTM1  - D(DPVAC)  + DT(PPCASK) 

and  If  POUTMl  is  still’ greater  than  POUTMX,  the  valve  La  open  allowing  flow 
out  of  the  actuator  so  that  the  pump  llow,  QPUMP  increases.  The  valve 
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displacement  area  and  flow  (DT(QACTC))  are  recal<  fated.  Since  the  flow  does 
uot  affect  outlet  pressure,  no  iteration  i3  necessary. 

The  actuatoi  leakage  to  case  is  assumed  to  be  laminar  since  the  passage 
is  small  around  the  actuator  barrel.  The  actuator  leakage  is  computed  as 

QACTLK  = COELKA* (DT (PACTU)  - DT(PPCASE)) 
with  all  the  actuator  flows  known,  the  actuator  velocity  is  calculated 

DT(VELACT)  = - QNET/l)(ARACT) 

where 

QNET  = DT(QACTIJ)  - DT(QACTC)  - QACTLK  - (DT(PACTU)  - PACTUO)*DT(BULKA) 

The  difference  in  the  new  and  old  actuator  pressures  times  DT(BULKA)  accounts 
for  the  compressible  fluid  flow  in  the  actuator.  The  new  actuator  position 
is  then 

DT(DISACT)  - l)T(l)ISACT)  + (VOLU+LT (VELACT)  ) *DELT/2  . 

A check  is  made  to  determine  if  the  actuator  is  at  the  stroke  limits. 

If  it  is  the  actuator  flow  must  he  recalculated.  If  the  actuator  is  at 
maximum  stroke  (fully  retracted  with  the  pump  at  full  stroke)  then  the 
actuator  pressure  drops  to  case  pressure,  and  DT(QACTC)  is  set  to  zero. 

If  the  actuator  is  at  minimum  stroke  (with  the.  pump  outlet  flow  negative), 
then  OT(QACTU)  and  DT(PACTU)  have  to  be  recalculated  so  that  the  actuator 
leakage  flow  can  be.  determined. 

Pump  Outlet  Pressure  and  Flow 

After  the  actuator  pressure  flows  and  valve  outlet  pressure  DT(POl)TLT) 
are  computed,  pump  outlet  flow  is  ualcu  ited  as: 

Q(L2)  - -(L'PUMP-Ql’LEAK -)n'(ilACTU)- (DT(POUTJ.T) -OPOUT) *D(VOLOUT)  ) 

Actual  pump  output  pressure  Is  then 

P(L2)  = C (L2)-Q (1.2) (L2 ) 
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Pump  Case  Outlet  Pressure  and  Flow 


The  case  outlet  flow  is  determined  using  the  schematic  of  Figure  6.51-2 
to  write  a second  degree  equation  for  case  drain  flow: 

DT (COECAS) *Q (L3) **2+(Z (L3)+DT(BULKC) ) *Q(L3) 

- (DT (PCASE)+QCASDR*DT (BULKC)-C (L3) ) =0 
where  DT(PCASE)  is  the  previous  time  step  value  of  case  pressure. 

The  above  equation  is  solved  for  Q(L3)  and  the  case  pressure  is 
computed  as 

DT  (PCASE)  =DT  (PCASE)+(QCASDR+Q (L3)  ) *DT  (BULKC) 


The  outlet  case  pressure  is  then 
P (L3)  = C (L3J -Q(L3) *Z(L3) 


The  assumptions  in  a model  of  this  nature  are  almost  too  many  to 
enumerate.  By  its  very  nature  the  pump  is  a complex  piece  of  equipment  with 
multiple  leak  paths  across  the  port  plate,  down  the  side  of  the  piston  and 


out  oi  the  shoes.  This  whole  set  of  leak  paths  have  been  linearized  and 
assumed  to  be  constant  for  a constant  output  pressure,  which  is  no  doubt 
rather  hard  to  accept.  The  alternative  would  be  go  into  very  detailed 
calculations  with  the  leakage  dependent  on  the  piston  load,  hanger  angle,  RPM 
and  anything  else  one  could  add.  Unfortunately  this  too  would  probably  be 
inaccurate  so  instead  of  an  inaccurate  complex  leakage  model  we  choose  a 
simple  leakage  model,  which  could  be  improved  when  more  data  is  available 
from  the  verification  tests. 

The  forces  on  the  hanger  are  not  taken  into  account  as  it  rotates 
only  the  hanger  inertia.  Flow  and  leakage  are  all  treated  as  though  the  pump 
had  a continuous  output  rather  than  the  individual  pumping  pistons. 

A model  which  includes  the  dynamics  of  each  individual  piston  would  by 
necessity  be  considerably  more  complex  and  consume  much  more  computer  time, 
but  is  is  an  alternative  to  what  we  have  done  here. 

In  all  the  calculations  the  hulk  modulus  is  created  as  a constant  tor 
the  high  pressure  (output)  side  and  as  a different  constant  for  the  low 
pressure  (inlet)  side,  the  elastic  expansion  of  the  volume  cavities  is 
included . 

Friction  effects  have  not  been  included  primarily  because  of  the  cost 
of  putting  them  in,  but  in  actual  fact  the  forces  oil  the  hanger  have  an 
ose.illatury  content  which  tend  to  keep  il  in  motion.  The  pulsations  of  the 
outlet  alsu  Lend  to  keep  the  valve  in  motion  so  t hat  friction  effects  would 
not  normally  be  significant. 


6.51.3  Computation 


The  pump  subroutine  is  set  up  using  the  HYTRAN  program  commons,  plus 
the  D,  DX,  DD,  and  L arrays. 

10QC  SECTION 

In  the  1000  section  the  constants  are  initialized  where  desirable  for 
more  efficient  computation. 

The  remaining  part  of  Section  1000  deals  with  the  calculations  of  the 
steady  state  pump  characteristics. 

In  order  to  balance  the  pump  at  some  steady  state  condition,  it  is  first 
necessary  to  establish  what  the  pump  characteristics  are,  over  the  maximum 
range  of  pump  flow. 

To  help  in  this  it  was  assumed  that  these  characteristics  could  be 
approximated  by  a straight  line  interpolation  between  the  pump  conditions 
at  maximum  and  minimum  flows  which  correspond  to  zero  and  maximum  actuator 
displacement  respectively. 

A chain  of  iuterdependen t calculations  are  needed  to  derive  the  maximum 
and  minimum  conditions.  We  have  to  establish: 

DT(PACTU)  = Actuator  pressure 

DT(QACTC)  = flow  from  actuator  to  case 

DT(QACTU)  = Flow  from  outlet  to  actuator  through  the  valve 

ACASDR  = Case  drain  flow 

QACTL1C  = Flow  into  the  actuator  due  to  leakage 

DT(DISVLV)  = Valve  displacement 

UT(POUTLT)  = Valve  chaniDOr  pressure  which  is  the  same  as  outlet  pressure 

The  actuator  pressure  is  dependent  on  the  outlet  pressure  due  to  the 
pumning  offset,  and  the  valve  flow  is  dependent  on  the  difference  between 
outlet  pressure  and  actuator  pressure. 
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The  initial  flows  (QACTU  and  QACTC)  are  computed  at  the  appropriate 
valve  positions  and  this  information  is  used  in  the  steady  state  portion  of 
the  program. 

1500  SECTION 

Steady  State  Calculations 

The  pump  which  has  three  connections,  has  a node  located  at  the  inlet. 
The  leg  which  has  the  inlet  connection  receives  the  pump  inlet  pressure 
from  the  steady  state  routine. 

For  the  leg  which  has  the  outlet  connection  as  its  first  element,  a 
value  of  the  output  flow  ratio  is  computed  as 


DT(DISVLV) 


QGUESS-DT (QOUTLT) 

DT (QINLET) -DT (QOUTLT) 


The  ratio  is  calculated  to  determine  the  percentage  of  actuator  flow 
that  is  actual  leakage  flow  (QACTLK)  into  the  pump  case. 

The  output  pressure  is  determined  by  the  computed  maximum  outlet 
pressure  at  maximum  valve  displacement  DT(POUTM)  plus  the  pressure  drop  from 
case  to  inlet,  DT (DELP13) . 

The  outlet  pressure  is  added  to  PQLEG(INEL,  5)  and  the  output  impedance 
(.00001)  is  added  to  PQLPG(INEL , 6). 

DT(POUTLT)  is  initialized  to  DT(POUTM)  + DT(DELP13)1 

And  the  outlet  pressure  PQLEG  (INEL,  11)  is  also  increased  by 
DT(POUTM)  + DT (DELP13) . 

LCS(INCL,  7)  is  set  to  5 which  means  that  the  LEG  formulae  must  be 
recalculated  for  every  iteration  because  of  the  variation  in  inlet  pressure. 

The  call  for  CON  # 3,  the  case  drain,  first  gets  the  value  of  the  flow 
guess  for  the  case  drain  flow  and  then  calculates  the  actuator  leakage  based 
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on  the  outlet  flow  ratio. 


QACTLK  - DT (DISVLV) * (DT (QACTC) -DT (QACTU) )+DT (QACTU) 

The  pressure  riae  from  inlet  to  case,  DT(DELP13)  is  then  calculated  using  the 
sum  of  the  leakage  flows  divided  by  the  coefficient  of  case  to  inlet  leakage, 
D(COECIN).  Since  DT (DELP13)  is  based  on  a case  drain  flow,  QCASDR/D(COECIN) 
is  added  along  with  DT(DELP13)  to  PQLEG  (INEL,  5)  for  the  constant  pressure 
rise  temperature. 

1/D(C0ECIN) , the  case  drain  Impedance  is  added  to  PQLEG(INEL,  6)  and  LCS 
(INEL,  7)  Is  set  to  5 so  that  the  leg  must  be  recalled  each  iteration  since 
the  leakage  is  dependent  on  theoutlet  pressure  and/or  updat  d DT(PINLET)  is 
required  by  the  other  CON  #2  calculation. 

PQLEG  (INEL,  11)  is  increased  by  DT (DELP13)  and  DT(PCASE)  is  initialized 
to  PQLEG  UNEL,  11). 

A test  at  the  start  of  both  the  case  drain  and  outlet  calculations  checks 
to  see  if  1NX  - 1 which  can  only  be  true  if  CON  2 and  3 are  the  first  or  only 
elements  in  this  leg. 

The  calculation  method  was  two  interdependent  pressure  rises  in  two 
separate  legs  which  is  unfortunately  necessary  3ince  the  variables  are  not 
easily  separated. 

2000  SECTION 

With  the  completion  of  the  steady  state  c;  culations,  where  DT(PCASE), 
DT(POUTLT)  and  DT(PINLET)  are  initialized  and  a value  for  DT (DISVLV)  is 
calculated,  the  pump  state  variables  can  be  initialized,  ready  for  the 
transient  simulation. 

The  ratio  DT(DISVLV)  is  used  to  initialize  DT(DISACT)  and  DT(QACTU). 
Actuator  velocity,  DT(VEIACT) , valve  displacement,  DT(DISVLV),  and  DT (QACTC) 
are  set  to  zero.  DT(POUTM)  is  set  equal  to  thepump  outlet  pressure,  DT(POUTLT) . 
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3000  SECTION 


The  3000  section  starts  with  a computation  predicting  the  actuator 
displacement  for  the  current  time  step.  This ’alue  is  usedin  the  computation 
of  the  actuator  pressure. 

The  pump  inlet  pressure  is  determined  from  the  input  impedance,  Z(L1) , 
a pump  inlet  to  case  coefficient  and  pump  flow  as  shown  in  the  equivalent 
schematic  diagram  of  the  pump  inlet  model,  Figure  6.51-2. 

The  next  step  is  to  determine  the  minimum  (POUTMI)  and  maximum 
(POUTMX)  pump  output  pressure  range.  The  compensator  valve  displacement  is 
then  computed  using  an  iterative  technique  as  explained  in  the  math  model  * 
section.  Once  the  valve  position  is  known  the  actuator  pressure  and  flow 
is  computed  along  with  the  pump  outlet  pressure  and  flow. 

The  position  of  the  valve,  determines  whether  the  actuator  flow  is  going 
from  the  outlet  to  the  actuator  or  from  the  actuator  to  case.  The  two 
equivalent  circuit  schematics  used  in  the  solution  process  are  shown  in 
Figure  6.51-2. 

Figure  6.51-2  also  shows  the  schematic  for  computing  the  case  drain 
output  pressure  and  flow.  QCASDR  is  the  sum  of  all  flows  into  and  out  of 
the  case: 

QCASDR  « QPLEAK  + QACTLK  + DT(QACTC)  - D(ARACT) *DT (VFLACT) 

- QCASIN  - Q0SIN*2. 

DT(BULKC)  is  the  impedance  of  the  case.  It  is  computed  as  the  fluid  bulk 
modulus  times  DELT  divided  by  the  case  volume. 

The  final  values  of  outlet  and  case  drain  pressures  and  flows  are 
passed  to  the  appropriate  P and  Q arrays.  The  pump  output  horsepower  is 
computed  as: 
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POWER  = -Q(L2) *(P(L2)-P(L1) ) / 6600.0 
and  is  added  to  the  previous  value  in  DT(PPOWER). 

A case  pressure  is  computed  using  a simple  integration. 
DT (PPCASE) =2*DT (PCASE) -DT (PPCASE) 


where 


DT (PCASE) -LATEST  CASE  PRESSURE 
DT (PPCASE) -PREDICTED  CASE  PRESSURE 

If  the  pump  inlet  pressure  is  less  than  the  minimum  pump  inlet  pressure, 
a message  is  printed  that  gives  the  time  at  which  pump  cavitation  occurs. 
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6. 51. A Approximations 


The  approximation  used  in  the  program  is  the  rather  gross  linearization 
between  maximum  and  minimum  flows  used  in  the  steady  state  calculations. 

The  remaining  calculations  follow  the  math  model  which  is  itself  a large 
approximation. 

6.51.5  Limitations 

The  current  pump  subroutine  does  not  attempt  to  describe  the  true 
cavitation  effects  that  can  be  caused  by  Improper  filling  of  the  pistons. 

The  effect  on  hanger  angle  and  RPM  vary  greatly  from  pump  to  pump. 

However,  it  is  also  a condition  which  the  designer  should  avoid,  by 
improving  the  pump  inlet  supply  system,  to  prevent  the  inlet  pressure  dropping 
to  the  point  where  cavitation  effects  are  a concern. 

A current  limitation,  is  the  correct  steady  state  prediction  of  pump 
outlet  pressure,  when  the  system  flow  exceeds  the  pump  capacity.  The  transient 
section  will  limit  the  flows,  but  flow  limitation  is  not  included  in  the 


steady  state  section. 


6.51.6  Variable  Names 


Name 

Description 

Dimension 

A 

Leakage  coefficient  from  actuator  to  case 

PSI/CIS**2 

ALPHA 

Computation  constant 

— 

D(ARACT) 

Actuator  area 

IN*  *2 

D(ARCOM) 

Compensator  valve  area 

IN**  2 

B.BETA 

Computation  constants 

— 

DT (BULKA) 

'mpedance  of  actuator  volume 

PSI/CIS 

DT(BULKC) 

oedance  of  case  volume 

PSI/CIS 

DT(BULKO) 

0..  ' -ilk  modulus 

PSI 

C,CHI 

Computation  constants 

— 

D(COEALK) 

Coefficient  of  actuator  leakage  at  zero 
pump  displacement 

CIS/PSI 

D (COEALM) 

Coefficient  of  actuator  leakage  at  maximum 
pump  displacement 

CIS/PSI 

DT(COEALS) 

Dummy  variable 

— 

DT (COEALZ) 

Dummy  variable 

— 

DT(COECAS) 

Constant  term  use  to  determine  case  outlet 
pressure  drop 

PSI / CIS**  2 

D(COECI.N) 

Coefficient  of  flow  from  case  to  inlet 

CIS/PSI 

COELKA 

Dummy  variable 

— 

D(COEOSO) 

Coefficient  of  outlet  flow  due  to 
actuator  motion 

CIS/ (IN/ SEC) 

D(COEPI.K) 

Coefficient  of  pump  leakage  (outlet  to  case) 

CIS/PSI 

D(COEVLl) 

Discharge  coefficient  outlet  to  actuator 

— 

D (COEVL2) 

Discharge  coefficient  actuator  to  case 

— 

DT(COEVl) 

Constant  term  used  to  determine  outlet  to 
actuator  pressure  drop 

PST/CIS**2 
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Name 

Description 

D imens ion 

DT (C0EV2) 

Constant  term  used  to  determine  actuator 
to  case  pressure  drop 

PSI/CIS**2 

CONA,  CONB 

Dummy  variables 

— 

Cl 

Inlet  characteristic  pressure 

PSI 

C 2 

Outlet  characteristic  pressure 

PSI 

C3 

Case  drain  characteristic  pressure 

PSI 

DT (DELP13) 

Pressure  drop  from  case  to  inlet 

PSI 

DT (DELP23) 

Pressure  drop  from  outlet  to  case 

PSI 

DIS 

Dummy  variable 

— 

DT (D IS ACT) 

Actuator  displacement 

IN 

O(DISAM) 

Actuator  Position  at  maximum  pump  displace- 
ment 

IN 

D(DISAMl) 

Actuator  position  at  minimum  pump  displace- 
ment 

IN 

D(DISP) 

Theoretical  maximum  pump  displacement 
changed  to  IN**3/IN/RPM 

IN**3/REV 

DT (DISVLV) 

Valve  displacement 

IN 

D(DISVM) 

Maximum  valve  displacement 

IN 

DPDAMP 

Dummy  variable 

— 

D(DPVAC) 

Pressure  at  which  valve  is  open  from  out- 
let to  actuator 

PSI 

D(DPVOA) 

Pressure  at  which  valve  starts  to  open  from 
outlet  to  actuator 

PSI 

DPI,  DP2 

Dummy  variables 

— 

D(FLOFRC) 

Flow  force  on  valve  spool 

— 

GAIN 

Closed  loop  pump  gain 

— 

D (INERT) 

Hanger  inert ia 

LBS-SEC**2/IN 

D(INPPSI) 

Spring  rate  of  spool  changed  to  IN/PSI 

LB/IN 

DT ( ITUP  ) ,DT (MITUP)  Iteration  constants 


Name 


Description 


Dimension 


OPOUT 

D(PACCP) 

DT(PACTU) 

PACTUO 

PACTUK 

DT(PCASE) 

D(PDAMP) 

PD  ISA 
D(PDISAC) 

DT(P INLET) 

D(PINMIM) 

DT (POUTLT) 

POUTM.POUTMI 

POUTMX 


Previous  value  of  outlet  pressure  PSI 

Actuator  pressure  due  to  piston  acceleration  PSI 

at  3600  rpm  & maximum  pump  displacement 

Actuator  pressure  PSI 

Previous  value  of  actuator  pressure  PSI 

Reference  actuator  pressure  PSI 

Case  pressure  PSI 

Hanger  damping  PSI/IN/SEC 

Predicted  actuator  displacement  IN 

Pressure  at  3600  RPM  and  maximum  pump  PSI 

displacement:  changed  to  rate  of  change 
of  pressure  with  actuator  position 

Inlet  pressure  PSI 

Minimum  inlet  pressure  PSI 

Outlet  pressure  PSI 

Dummy  variables 


POWER  Pump  output  horsepower  HP 

DT(PPCASE)  Predicted  case  pressure  PSI 

DT(PPOVER)  Cumulative  output  horsepower  HP 

DT(PRPM)  Pump  operating  speed  RPM 

D(PSLRPM)  Slope  of  pressure  vs  RPM  curve  PSl/RPM 


D(PSPEED) 


Pump  operating  speed 


RPM 


D(PSPRIM) 


Actuator  pressure  due  to  spring  force  at  max- 
Lmurn  pump  displacement  adjusted  to  slope  PST/TN  J 


D(PSPRIZ) 


Actuator  pressure  due  to  spring  force  at 
zero  pump  displacement 


PSI 


D(PZRPM)  Actuator  pressure  inpucted  at  3600  RPM  PSI 

and  zero  pump  displacement;  adjusted  to  zero 
RPM 
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Name 

Description 

Dimension 

DT(QACTC) 

Actuator  flow  with  valve  is  open  from 
actuator  to  case 

CIS 

QACTLK 

Leakage,  flow  from  actuator  to  case 

CIS 

DT(QACTU) 

Actuator  flow  when  valve  is  open  from  outlet 
to  actuator 

CIS 

QCASDR 

Sum  of  all  flows  into  and  out  of  the  case 

CIS 

QCASIN 

Flow  from  case  to  inlet 

CIS 

DT(Q INLET) 

Inlet  flow 

CIS 

QNET 

Net  actuator  flow 

CIS 

Q0S1N 

Outlet  flow  due  to  actuator  motion 

CIS 

DT  (QOUTLT) 

Outlet  flow 

CIS 

QPLEAK 

Pump  leakage  flow 

CIS 

QP1JMP 

Pump  flow 

CIS 

TP  OUT 

Dummy  variable 

— 

DT(VELACT) 

Actuator  velocity 

IN /SEC 

D(VLVOL) 

Valve  overlap 

IN 

D(VOLACT) 

Actuator  volume 

IN**  3 

D(VOLCAS) 

Case  volume 

IN*  *3 

VOLD 

Previous  actuator  velocity 

IN/SEC 

D(VOLOUT) 

Out  let  volume 

IN**  3 

D (WIDTH) 

Slot  width 

IN 

ZOUT 

Outlet  impedance 

PS1/CIS 

6.51-21 


6.51.7  Subroutine  Listing 


C 

c 


SUriKOUTIML  PrJ;!P5 1 ( U,  DC,  00,  L) 

****  REVISED  mARCH  25,  1976  **** 

X VERSION  OF  THE  YPCViP54  SUBROUTINE  7 APR  76 
CO.KlOi'l  NTFLPL,  NTOLPL,  I PT,  I POINT,  MPT3,  INEL,  XW  n L , WTO?  L , N LPLT  ( 61,3), 
1 ?OLEG( 90, 12) , LC3( 90,10), ILEG( 1460), PU (90) ,QN(90) 

COiI.iOU/ SU3/PARN ( 150,9),  PN(  1500)  ,Ow(  1500)  , P(  300)  ,0(300)  ,C(  300) 

1,2(  300)  , RHO(  20)  ,S20RHO(  20)  ,VISC(  20)  ,GULX(  20)  ,TK.;?(  2 0)  , ?VA?(  20) 

2 ,  A TP RES , T , DLLT, TFINAL, PLTDEL, PI , TITLE ( 20 ) , LEGS , ICON 

3 , KT£i-iP(  9 9 ) , LSTAF.T  ( 150)  ,*JLPT(150)  ,LTYPb(99)  ,«C(99)  ,INX,INZ 

4 , I S V , I S T C P , i J L I >J  E , ‘A  L L , I N D , I £ M T R , .-1 N L I >i  b,i-i  li  EL,:  4 N LEG , .-;.J  >■;  C D L , N ;i  P L OT 
5 , il.NLPTS , -IDS 

DIMENSION  D(  37)  ,DT(  43)  ,DD(  1)  ,L(  10) 

INTEGER  ARCG'i i , -iT OTH , FLOFRC  , COEVL1 , COlVL2  , ARACT , P3PRIZ  , PSPRI.-* , 

1 PACCP , ??,  RP.-i , PS  LR ?:•: , POI55  AC , PDA.iP , DIS  P , OPVO A , DPVAC  , 

D 1 3 A; ) , D 1 3 /V;  I,  CO  E A L K , CC  L A L.  i , C O E P L K , C O t C I « , VO  LC  A 3 , PINi  ,1  'i , 

pspli:d,?r?..,?po',;l"r,  f lag  , oactu  , qactc  , pacts,  poutlt, 

PCASE, PIN LET , COE VI , COE V2 , 3ULKC , VL LACT , OI 3 ACT , 01 J VLV , 

COEALZ  , COEALS , DEL  PI  3 , DELP23 , CO  EC  AS , POUT;. , 3ULKO,  COLOSO 
, OI  N LE  T , QO IJT  LT  ,013  VO  , V L VO  L , VO  LACT,  3 U L :<A  , VO  LOUT , P PC  A S & 

0(  ) ARRAY  ***** 

DATA  DP  VGA/ 1/  , I N?  PS  1/  2/  , A RCOi-i/ 3/  , W I 0’i*  B/  4/  , F LOP  RC/  5/  , VLVO  L/  6/  , 

1 COBVL1/7/ , COL VL  2/9/ , ARACT/  9 / , PSPRIZ/1 0/  , PS  PR  I: ./ 1 1/  , 

PACCP/ 1 2/ , PZ  RPO/ 1 3/ , POTS  AC/ 1 4/ , PS  LRP.  i/ 1 5/ , PCAUP/1  6/  , 

DIG  P/1  7/  , OISA.i/ 1 3/ , 01:3  Ao  1/19/ , CO E A L V 29/  , CO E A L. ./  21/, 

CO  E PLK/ 2 2/ , CO  fc, CIO/2  3/ , VO LC  AS/ 2 4/ , PI  j * 14/25/, PS  P E E D/ 2 6/ , 

CO  EOS  0/27/  , OISV.j/  2-3/ , 0 PVAC/29/ , INI.  RC/  3 9/  , VO  LACT/  3 1/  , VO  LOUT/ 3 2/ 
OT ( ) ARRAY  ***** 

DATA  PR?.'i/ 1/ , PPOwL'R/ 2/  , FLAG/ 3/ , OACTU/4/  , OACTC/5/ , 

1 PACTU/7/,  POUT  LT/ 5/,  PC  AS  I.,/ 9/,  PIN  LET/1 0/ , COLVl/1 1/ , COE  V2/1  2/ , 

DU LHC/ 1 3/ , VL LACT/ 1 4/ , 013 ACT/ 1 5/ , DIS VLV/ 1 5/ , H V 1 7/ , CObALZ/1 3/ , 

COL  A L3/ 1 9/ , COLCAS/ 2 9/  , POUT. V 2 1/  , 0LL31  3/ 2 2/ , DEL P23/23/,  3UL\0/ 2 4/ 

, 01;  • r.F  7/  2 5/  , OOUTLT/  2 6/  , I TUP/  2 7/ , u ITU  P/  2 3/ , GULF  A/  2 9/  , P PC  AS  i / 3 0/ 


2 

J 

4 

5 
0 


0 

u 

3 

-1 

5 


2 

3 

d 


I F ( I E N T R ) 1000,  200.9,  3060 
C ***  1000  SECTION 

1000  CONTINUE 

IF  ( I N E L . M E . 0 ) GO  TO  15  0 0 
DO  1061  1=1,20 

1001  3T(I)=0.0 
;«?Tt.-i?(  ITU) 

I F ( s' . LT  .11)  u = U + 10 

C . 6? 0^3= VI SC  FOR  IL-H-6  3 26  ? AT  100  ? 

POE  L R = V I SC  (;>’)/.  0 3 0 4 3 

DT(  3’JL‘CC  ) =PULX( ) * ^LLT/U(  VOLCAS  ) 

DT{ DULTA ) =D( VO LACT ) / ( 3ULF(U) *DlLT) 

0 ( VO  T/O UT ) = 0 ( VO  LOUT ) / ( •?  U L 5 ( " ) * D E LT ) 

D? ( CObV  1 ) * D ( COt. VL1 ) *3  20 RHO ( KTiG » P(  I iD)  ) *D(  WIDTH) 

DT(COi-  V2)  = D(  COEVL2  ) *3  20Ei!0(  S)*D(  wIDTH) 

OT  ( COEC  AS ) = ] . 4 1 4 2 1 3 5/  ( ( . 0 26  96  2*3  20RH0(  TTb.  \ P(  I 4D)  ) )**?.) 
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125  0 

C*  * * 


DT( COLALZ  ) =D(  COt'ALK ) * POWER 
DT ( COtALS ) =D(  COLAL.'l ) * POW L A 
D ( I MERT ) = 0 ( I N'E  R T ) / ( BELT*  D ( A PACT ) ) 

I F ( 0 ( F LOF RC ) . N L . 0 . 0 ) GO  TO  1250 

DT  ( COt  A LS  ) ~ ( DT ( COEALS ) - DT  ( COfcALZ  ) )/D(  Dio  A., ) 

D ( 1 ,0  P P5 1 ) = D ( AiiCO.-i ) / 0 ( I N P PS  I ) 

D(  FLOFRC ) = 2 . * D(  NlSTt-I)  *D(  I3PPS  I ) * ( D(  COfclVLl ) * * 2 ) * . 3 55/0(  ARCO..) 
D ( D PVAC ) = D ( D P VO A ) - D ( VL VO  L ) /D ( I fl P PS  I ) 

D( DIS  P) =D( OIS  ? ) / 5 0 . /D( DI3A.;) 

0(  PS  PR  Iii ) = ( D(  PS  PR  1.1 ) — D ( PS  PR  1 3)  )/D(OISA*i) 

D(  ?ACCP)=D(  PACCP)/(  0(  OISA.i)  *3500. **2) 

D(  P 013 AC)  = ( D(  P0I3AC ) -D(  ?ZR?:i)  )/D(  OISA.i) 

D(PZRP.i)»D(  PZRP,.)-D(  PSLRP.-i)  *3  600. 

DT(  PPP.-i ) =D(  PoPbEO) 

DT(  eOLKO)*3UL3f(KTr..i?(  I MO)  ) *D(  D?VC'A)/232000. 


THIS  SLCTIOM  CALCULATES  T :1 1 . STEADY  STATE  CSARCTURISTICS 


C 


OF  THL  prji-Sp  OUTPUT 


P»<  t.SGU  R L Vi  - R-5 US 


FLO'S  . 


COLLKA  = DT(  COEAL-Z ) 

DT ( POUT LT ) = O ( D PVOA ) + 2 . 0 
125  0 DT ( OACTC ) = DT ( OACTU ) 

1270  DT(  PACTS)  =L(  PSPS  IZ)+DT(  0 1 3 ACT ) * D ( PS  PR  I.  •; ) + DT  ( PCASL) 

1 +OT(  0 IS  ACT)  * ( D ( PACCP)  *DT(  PUP.-,)  **2.+0(  PDISAC)  ) 

2 +(D(  ?ZRP:-i)+.0(  PSLSPu)  *DT(  PRP.,)  ) *DT(  .3UL:LO)/OT(  POUTLT) 

I F ( ItUTK.  LO.  0)  IU.TUIU’ 

DT(  OACTU)  =COLLT<A*DT(  PACTS) 

DT  ( DISACT)  = D(  DISA.. ) 

COt,LRA=DT(  CCtAL’/j ) +DT(  DISACT)  *DT(  COtALS  ) 

I F ( DT ( DACTC ) . bO . 0 . ) GO  TO  I 2 6 0 
DT  ( POUT,  . ) = DT ( POUT L T ) 

DT  (QI-  ;•  Lt  T ) = D ( 0 1:>°)  *DT(  ? P P: . ) * D ( 0 1 S A. , ) - D T { PC  J'iv  ■.)  * 0 ( C Ot  P LS  ) 
1 -DT( OACTU) 

DT  ( DOUT  LT ) =-  ( D ( Cut  ?L.<)  )*Dr<  POUTLT ) - OT  ( OACTC  ) 

DT(  Dl-  L-P23)  =-DT(  DOUTLT ) / ( DT(  I * L b T ) - DT  ( DO  UT  LT ) ) 

DT ( O 1 3 VLV ) = . 5 
DT(  DELPl  3)  = 10. 

CAT  >T= . 7/  ( 1 . +2  O.  * DT  ( COtVl ) *D(  I JPPSI)  *2(  L(  2)  ) )' 

DT  ( I TU  P ) =CA  T \ 

DT  ( . ! ITU? ) = 1 . -GA I 
R L:TU  kU 


r> 


STEADY  STATE  CALCULATION  SECT  TOM 
I T D=CO> i POOL isT  4 , KUtL=CO'-’i'itCTIOu  J! , Ii iLL=Li.:G  -f 
CO-1  U = IULLT,CO'3  -2  = OUTLl T,CG::  u-3=CASt  DFAI:v 
T-il,  INLET  IS  A NODAL  POINT  In  T:iL  SYSThu 

1500  I?( KULL-2 ) 1510,1530,1520 
1510  DT(  PIDLLT)  = POLtG(  I.’JL’L,  11) 

GO  TO  1500 

1520  I*(  INX.  4L.  ] ) GO  ’L‘0  1700 

DC  A3DR  = P-DLLG  ( I ALL , 1 ) *PQLLG(  I U L,  2) 
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(Continued) 


1 6 3 0 
tf 


1600 


OT { 6 ) = OCAS OR 

OAC?LK  = ,OT(  DI3VLV)  * ( OT ( QACTC ) -DT(  QACTU ) ) +DT(  QACTU) 

0 [’  ( DCLPl  3 ) = ( OT(  POnTri)  *D(COEPLK)+-3ACTLK-QCASO??)/D(COtCI.‘i) 
PQLEG(  I i'J E L , 5 ) =?QLLG(  IULL,  5 ) +DT(  DEL  Pi  3 ) +QCASDfr/0{  COLCIG  ) 
?QLLG(  I GEL,  6 ) = PDI,LG(  I L L , 5)+l.  0/O(  COlCIG) 

LCS ( INEL, 7 ) =5 

PQLLG ( I \TEL  ,11)  = POL  EG  ( I ILL,  1 1 ) +DT  ( DLL  Pi  3 ) 

DT ( PC ALL) = POL LG { I M K L , 11) 

PQLE.G(  IULL,  8 ) =PQLLO(  IT'LL,  8 ) + OT{  COLCA3) 

POLEG(  1I-7LL,  ll)=POLEG(  I MEL,  11 ) -D?{  COlCAS  ) * ( QC AGOR** 2 ) 

GO  TO  1600 

IP( IGX.GU.l)  GO  TO  1700  . 

DT { D I 3 VL  V ) = P OL  >■.  G ( I ii  k L , 1 ) * ?QL  LG  (I  ;«  EL,  2)-  OT  ( GOUT  LT ) 

OT  (DIG  VL  V ) =OT(  DIG  VL  V ) / ( DT ( O I -I  LET ) - DT  ( QOUT  LT ) ) 

1 !•  ( DT  ( 0 1 6 VL V ) . T,T . 0 . 0 ) OT  ( OI 3 VL V ) = 0 . 0 
JP( DT( 0I3VLV) . GT .1.0)  DT( DIoVLV)=l. 0 

Pr'LL!:(  IGLL,  6)=?DLbG(  I •!  L L,  5 ) +TVP  ( POUT;*)  +OT  ( DLL  Pi  3 ) 

P OL L G { I U L'  L , 6 ) = P a L !:, G ( I '»LL,  6 ) +0. 00  001 

POL  EG  ( I .ILL,  ll)=P-OLtG(I  %kL,  11)  +DT(  POfJTu)  +DT(DELP1  3) 

DT  ( PO DT  LT ) = POL F, G ( I L L , 1 1 ) 

LCS(  I -ILL,  7)  =5 

rltuh:: 


1700  . T-- 1 ' P t(  6,1600)  IGD,  TOLL,  TOLL 


1 0 0 o ? OIL! AT ( 5 V , 4 6 H C A L L .3 
1 13,1 -Hi  GOPilLCTIG  j 
wPTTfcf 6, ?13) 

043  FOR: .AT ( 1 OX , 3 BlIPOO^RA: 


u L ;iC  i.  : 0 i<0 R Ot:  T * .C  T r 0 I CO.  > P 0 3 L 0 T 

,16,70  LlG  i-JO  ,15) 

3 7 0 ? I -3  S 0 :>  ,?0  OT  I -j  t.  P 0 .•*  P 5 1 ) 


3 TOP  6054 

C ***  2 000  3i.CTIOi'i 

2000  ccg:i  cue. 

DT  ( DIG  ACT ) = OT  ( 0 I T V L V ) * D ( D 1 3 A . > ) 

DT ( D.\Cri  G ) = DT ( DIGVLV)  * ( DT(  OACTC) -OT ( DACTiJ)  ) +DT(  •'’•YCTU) 

OT ( T ACTC ) = 0 . 0 

DT( OIGVLV) =0.0 

DT ( P °C  A3 1 ) = DT ( PC  AG  L ) 

GO  TO  1270 

C ***  3 POO  SlCTION. 

3000  CDLTIWDL 
ICOLl!  iT=0 


C 

c 


°O.j!,P  = 0 . 0 
L 1 = L ( 1 ) 
L2=r,(  2) 

L 3 = L ( 3 ) 
C’=C(L1) 

C 2=C  ! L?  ) 
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C 3=C ( L3 ) 

VO  LC=  OT  ( Vli.  LACT ) 

DPDA.1P=D(  POAuP) 

DPDA.iP=D(  ARACT)/(  CPOA;iP+D(  IULKT)  ) 

DT{  OACT'J)  = 0. 0 
DT(  0ACTC)=0.0 
PACTUO=DT(  PACT  i j ) 

?ni3A  = DT(  0I3ACT)  +OT(  VELACT)  * OE.LT 

PACTUP=0(  PSPimj+POI.SA*D(  PSPRIii)  +V0LD*0(  ISISRT) 

1 +PDT3A*  ( D(  P.ACC? ) * DT ( PPPJi)  **2  + D(  PDISAC)  )+U7(  PPCASL) 

2 + ( D(  ?3RP.*0+D(  PSLRP.i)  *DT(  PPPPi)  ) * OT  ( 3ULXO)/DT(  POUTLT) 
no  s I \’ = - VO  L 0 * D ( C 0 b 000) 

0 P tj  X'P=  P 0 1 3 A * 0 ( 0 1 o P ) * OT  ( PRP.  i)  +OOSI.I 

OT  ( P I :i  LET ) = ( C 1/  Z ( L 1 ) + OT  ( P PC  AO  c ) * 0 ( COLC I >4 ) - 0 PU.i  P ) 

1 /( 1.0/Z(L1)+3(CO£CIH) ) 

I7(RT(  ?I0 LET)  . LT.  0(  PI  'EilNi)  ) DT(  PIXLLT)  = D(  PinUIM) 

DT  ( 01  ;4  LET)  = ( C 1-0T(  PI"!  LET)  )/Z(  LI) 

QC\SIU=(DT(  P PC  A 3 E ) - DT  ( PI  ! LET)  )*D(COfcCI«) 

npfJ.;?=Dr(  01  ^ L f: . T ) + C'O A 3 1 • 4 + 0 0 3 1 *! 

C 0 1-  L K A = OT  ( CO  L A L 7, ) +POI 3 A * OT  ( C 0 L A L S ) 

ZOUY*?.  ( L2) /( 1 . 0+Z ( L2 ) * 0(  COlPIT:  ) +Z  ( L2  ) *0(  VO  LOUT ) ) 

OPOUT=OT(  PO'JTLT ) 

0=1 ./  ( 0 P 0 A . i ? + D T ( 3 U L A ) +COLLTA) 

091*  ( DT  ( PPCA3L  ) *COt  LTA+PACTUO*  DT  ( 2ULXA ) +PACTUH*  DPOAl .?)  * .i 
OP2=-3*  ( PACT  UP*  0 PDA.:P+PACTUO*DT  ( -3UL'- A ) +DT  ( PPG  AS  E ) * ( COfc  LKA- 1 . ,/U ) ) 
3200  POUT. IX*  ( C2/3  ( L2  ) + DPUi.P+  DT(  PPCASL ) * 0(  CCLPL* ) +D(  VOLOUT) *OPGuY) *ZOUT 
POtTT.i I = 0(  DPVOA) +DT ( PPCA3C) 

IF(  POU'iViX.  Lf..  POUT  .1 ) 00  TO  3220 

ID  r ( PO IJT  LT  )*?0  UT:  1 X * 0 T ( I T U P ) + PO IJT; . I * DT  ( i . I 2 U P ) 

3210  01.3  = ( DT(  POUT  LT ) - POUT.  1 1 ) * 0 ( I ')  ? PS  I ) 

013*013/  ( D ( FLOP  RC ) * ( DT  ( POUTLT ) - DT  ( PACTU ) ) +1 . 0 ) 

IF  ( DIG  . GT .0(01 :3 V,! ) ) D 1 3= 0 ( D IS  V:i ) 

3  213  I F ( P OVi UP.  LQ .0.0)  00  TO  3213 

CO'.’A=(  DI5*DT(  COL VI ) ) ** 2/ ( 2 . *CG,.LT’ A ) 

C0UP  = 2.*A.:G(  DT(  PCUTLT)-DT(  PPCA3L)  ) *COu L'XA/COTA 
OT  ( TACT  J ) »C0>»\*  ( Dr‘P  T ( 1 . O+COUD  ) - 1 . 0 ) 

.jPITE(  6/037)  C0’4A  , COUO  , COLL”A»  0T(  PPCASL ) , OT(CO|,V1)  ,DT(  POUTLT) 

0 07  FOR.. AT ( 3X, 2L12. 5) 

GO  CO  3317 
3 213  COUTINUi; 

A = 0I3*  OT  ( COivVl  ) 

OT  ( O A C T J ) = - 3 * A * * 2 / 2 . + A / 2 . * 3 P P T ( ( A * 3 ) * * 2 + J * ( D I'  ( P 0 f j T L T ) - 0 ? 1 ) ) 

DT  ( PA  CT IJ ) = DT  ( POUT  LT ) - ( 0 T { TACT U ) / A ) * * 2 
3 217  TP0U7= POUT:  i X- OT  ( DACTU ) * ZOUT 

I F ( A Do  ( T POUT-  o ]'  ( POUT  LT ) ) . LT.  0. 05)  GO  TO  323  0 
OT  ( POUT  LT ) = OT  ( POUTLT) *DT(  . iITU  l>)  +T  POUT*  DT(  ITU  ? ) 

ICOUUT-ICOUUT+1 

IF  ( ICOUXT.LO.  25)LPITo(  3 , °DD ) ICOU  iT 

IF(  ICOii  -IT.  EO.  2 A ) ;F.<ITb  ( 6 r 9 03 ) DT  ( POUTLT)  , TFOUT , POUT..X,  POUr.il 
0 0?  FOP. . AT  ( MX , 4F  2 0 . 5 ) 


BEST  AVAILABLE  COPY 
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IF ( I COUNT. EQ.  2:5 ) GO  TO  3230 
909  FOR:-lAT(10X,13HLXCEEDED  ITER,  110) 
GO  TO  3219 


: FLOW  F 30. 1 ACTUATOR  PISTON  TO  CAS l 

3 220  POrj"ViI=0(  DPVAC ) +DT(  PPCA5E) 

IF { PQUTNX . Gfc . POUTril ) GO  TO  3230 
0 1 3 =(  POUT, <i  I - POUTS X ) * D ( I X P PS  I ) 

0IS  = DI3/ ( ( OT ( PA CTO ) -UT( P PC  ASE ) ) * O ( FLOF  PC ) + 1 . 0 ) 

IF ( DIS.GT.D(OISVS) ) QIS=D( DlSVn) 

3220  CONTINUE 

A=OIS*DT(  COEV2) 

DT( QACTC ) =-3*  A*  *2/2. +A/ 2 . *3QRT( { A*3) **2+4*OP2) 

DT  ( PACTU ) = DT ( P PC  ASE ) + ( DT ( QACTC ) / A ) **  2 
3230  l?( POWER. NE. 0.0)  GO  TO  3230 

: TEST  PISTON  DISPLACEMENT  AGAINST  dAXlSUw  STROKE 

OACT  LK  = ( OT ( PACTU) -DT( PPCASc) ) *COGLKA 

QNf::T=OT(  QACTU)  -OACTLF-r.>T(  QACTC  ) - ( OT(  PACTU) -PACTUC)  * D T ( SU  L:<A  ) 
OT  ( VL  LACT ) = - Qll  l T/  O ( A P ACT ) 

OT ( D T S ACT ) = DT ( O I 3 ACT ) + { VOLO+DT ( VE LACT ) ) / 2 . * D L LT 

CALL  XL  Ti ; I T ( DT  ( 0 IS  ACT ) > OT( VLLACT)  , PO'Wi:’  0(  0I3A.il ) ,C(DI3Aii)  ) 

I F ( ?OW l R .EC. 0.0)  GO  TO  3309 
I F ( OT(  PI  ’JLbT)  . LE.  D(  ?I  'lul:0  ) GOTO  3210 
O?U.;P=0(  OISP)  *OT(  ?RP,i)  *OT(  01 S ACT) 

QOS I «* 0.0 

3240  IF( POWER. EQ.- 1.0)  GO  TO  3200 
OT ( QACTC ) = 0 . 9 
OT(  PACTU )=DT(  PPC-V3 hi ) 

OACTLK-O.O 
GO  TO  3.300 

3 25  0 OT( PACTU ) =OT ( P fC AS L ) +QT ( OACTU ) /COG LX A 
PACT  L”  = OT ( OACTU ) 

3 300  P ( L 1 ) = 07  ( ? I J LE T ) 

Q { Li ) - DT ( Oil  LbT ) 

Q?Lf.,AR=(  DT  ( PO  i.JT  LT ) - DT  ( PPCASC)  ) *TQ(  CCEPLK) 

Q(  L2  ) =-  ( QPU.-:  P-QPLLAT\-OT(  OACTU ) - ( DT ( POUTLT ) -OPOUT  ) * 0(VO LOUT ) ) 
DT  { OIS7LV ) = ( DT  ( POUTLT  )-DT(  P?CASV..)-Q(  DP  VO  A)  ) *D(  IN  PPG  I ) 

DT  ( POUTLT ) =C  ( L2  )-'">(  L2 ) * Z ( L2  ) 

P(L2)=OT(  POUTLT ) 

"C  A S O R = O ? L E A :' + Q \ C T L * ' + O T ( QACTC  )-C(  AHACT)  * DT  ( V E LACT) -GCAs  I i-  ' O 
DT  ( 0 ) = DC  A. *5  OR 
ALPHA=DT( CO EC  A ~ ) 

QLTA=2( L3)+DT( 3ULXC) 

Cr.:i  = DT  ( PC  A S E ) + >QC  A S D R * OT  ( 3 U LTC  ) - C ( L 3 ) 

Q(L3)  = { -QETA+SORT(  SETA*  * 2+4  . *ALP!iA*  AGS  ( CLI ) ) ) / ( 2.*  ALP-' A) 

Q ( L 3 ) =S  I GU  { Q ( L 3 ) ,-C!;I) 

DT  ( ? PC  AS  L ) = OT  ( PC  A S i:. ) 

DT ( PC  AS  E ) = DT ( PC  A S E ) + ( QC  AS  O + Q ( L 3 ) ) * OT  ( 3 ; I h"  C ) 

?( L 3 ) =C ( L 3 ) -•"' ( L3) * Z ( L3) 


LtiULi, 
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DT(  PPCASE*)  =2 . *DT(  PCASE)-DT(  P PC  A 5 15) 

r* 

POWLP=-0( L2) * ( P( L2)-P( LI ) ) / 6 6 0 0 . 0 
DT  ( P PCVJ  L R ) = ?Ow  £ R+DT  ( P POW  E R ) 

IP{  DT(  PIGLET)  . TjE,  D(  PINalM ) ) WRITE (6,3310)  T 
RETURN 

3310  FOR.-; AT ( 2X,  3 GH* *******  ?U.-l p CAVITATION  ONSET  AT  T*  , El 2.  5) 
END 
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6.54  SUBROUTINE  PUMP54 


Subroutine  PUMP54  was  set  up  to  model  the  space  shuttle  (F-14)  pump, 
which  is  b-sicaily  a simple  in  line  piston  pump,  though  it  incorporates  many 
mechanical  refinements  and  sophisticated  design  features.  This  model  is 
intended  for  use  by  system  designers  and  is  primarily  aimed  at  the  study  of 
pump  system  stability  under  dynamic  loading  conditions. 

The  model  incorporates  the  effects  of  case  drain  dynamics,  since  the 
shuttle  pump  output  pressure  is  referenced  to  case  and  the  actuator  discharges 
to  the  case,  and  displaces  case  volume  when  it  is  moving.  1 

The  treatment  of  leakage  and  damping  characteristics  are  rudimentary. 

The  dynamics  of  the  swash  plate,  yoke  or  hanger,  are  complex.  For  the 
model  the  effects  of  the  dynamic  forces  on  the  actuator  are  included.  These 
forces  push  the  pump  to  maximum  flow,  the  hanger  spring  \ -ovides  this  force 
on  startup. 

In  addition  the  hanger  offset  creates  a negative  flow  at  the  pump  inlet 
and  outlet  when  the  hanger  is  moving  toward  maximum  flow,  and  this  has  a 
destabilizing  effect,  when  the  swash  response  is  very  fast. 

Some  of  the  hanger  forces  are  oscillatory  but  no  attempt  has  been  made 
to  describe  this  effect,  except  that  the  magnitude  is  sufficient  to  keep  the 
hanger  in  motion,  so  we  have  Ignored  the  effects  of  static  friction.  This 
Is  an  assumption  that  helps  the  simulation  by  keeping  the  integration  of  the 
hanger  velocity  a continuous  function,  between  its  mechanical  stops. 

The  compensator  valve  flow  characteristics  are  a significant  part  of  the 
model.  The  forces  on  the  valve  are  a combination  of  the  outlet  pressure 
forces  pushing  against  the  case  press  ire  and  spring  forces,  with  damping  and 
flow  forces  acting  in  either  direction. 
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The  damping  and  flow  forces  are  not  included  because  of  the  low  flow 
levels  of  this  particular  valve. 

6.54.1  Math  Model 

A simplified  diagram  of  the  pressure  regulated  variable  displacement 
pump  is  shown  in  Figure  6.54-1. 

An  equivalent  circuit  schematic  diagram  for  the  pump  model  is  shown  In 
Figure  6.54-2. 

Pump  Displacement  Flow 

For  the  pump  inlet  the  displacement  flow  is  computed  as  follows : 

QPUMP  = D(DISP)*DT(PRPM)*DT(DISACT) 
if  D(DISAMI) < DT(DISACT) < D(DXSAM) 
or  QPUMP  = QINL.ET  + QCASIN 
if  P 1NLET<PINMIN 
Actuator  Pressure 

The  actuator  pressure  is  based  on  the  contributions  of  the  spring  force, 
case  pressure,  outlet  pressure  and  pump  rpm,  plus  the  reaction  force  due  to 
velocity  damping  which  is  generated  when  the  hanger  is  moving.  The  input 
data  establishing  actuator  pressure  tor  pump  operating  conditions  is  modified 
to  give  a simpler  algorithm  for  the  transient  calculations. 

The  input  data  gives  the  actuator  pressure  due  to  the  spring  force  at 
maximum  flow,  D(PSPRIM)  and  at  zero  flow,  D(PSPRIZ) . P(PZRPM)  is  input  as 
the  pressure  at  zero  actuator  displacement  and  3600  rpm.  It  is  then  modified 
to  give  the  pressure  at  zero  rpm  by  subtracting  from  it  the.  slope  of  the 
pressure  versus  rpm  curve,  which  is  input  as  I)(PSI  RPM)  . 

Using  the  F-15  pump  experimental  data  and  the  actuator  pressure  predic- 
tions generated  by  the  HSFI!  program,  a formula  was  derived  which  related 
actuator  pressure  to  the  output  pressure /bulk  modulus  ratio. 

.he  test  data  collected  at  di  I'ferent  fluid  temperatures  showed  a need 
for  temperature  correction  which,  was  obtained  via  the  bulk  modulus.  A 
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INLET 


PPCASE 


CASE  DRAIN 


SCHEMATIC  DIAGRAM  FOR  THE  ORB ITER  PUMP  MODEL 
FIGURE  6.54-2 
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correction  factor  DT(BULKO) /DT(POUTLT  ) is  used  where 
DT(BULKO)  - BULK(KTEMP (IND) )*D(DPVOA) /223000 

D(DPVOA)  is  the  reference  pressure  and  223000  is  the  reference  bulk 
modulus  of  MIL-H-5606B  at  3000  psi  and  130°F. 

The  actuator  pressure  is  then  computed  as 
DT(PACTU)  - D(PSPRIZ)+PDISA*D(PSRIM)  - VOLD*D(PDAMP) 

+ PD1SA*  (D  (l’ACCP  ) *DT  (PRPM) **2  + D(PDISAC)) 

+ DT(PCASE)  + (D (PZRPM)  + D(PSLKPM)  *DT(PRPM) ) 

*DT(BU1.K0)  /DT(POUTLT) 

where 

PDISA  - PREDICTED  ACTUATOR  POSITION  BASED  ON  THE  PREVIOUS  POSITION  AND 
VELOCITY 

(-DT(DISACT)  + DT (VELACT) *DELT) 

VOLD  - ACTUATOR  VELOCITY  (IN/SEC) 

D(PACCP)  - D(PACCP) / (D(DISAM) *3600**2) 

D(PACCP)  IS  INPUT  AS  THE  PRESSURE  DUE  TO  PISTON  ACCELERATION 
AT  3600  KPM  AND  MAXIMUM  STROKE 
D(PSPRLM)  - (D(PSPRIM)-D(PSPRIZ) ) /D(DISAM) 

D( PS PRIM)  IS  INPUT  AS  ACTUATOR  PRESSURE  DUE  TO  SPRING  FORCE 
AT  MAXIMUM  PUMP  DISPLACEMENT 
D(PDISAC)  = (D(PDISAC) -U (PZRPM) ) /D(DISAM) 

D(PDISAC)  IS  INPUT  AS  ACTUATOR  PRESSURE  AT  3600  RPM  AND 
MAXIMUM  PUMP  DISPLACEMENT 
D(PZRl’M)  ” D(l'ZRl’M)  -D(PSLRPM)  *3600 

D(PZRPM)  IS  INPUT  AS  ACTUATOR  PRESSURE  AT  3600  RPM  AND 
ZERO  PUMP  DI  SIM, A CEMENT 


The  actuator  pressure  and  damping  characteristics  are  important  variables 
since  they  govern  how  fast  the  pump  goes  from  zero  to  full  flow.  No  easy 
way  exists  to  obtain  these  values  accurately  from  purely  dimensional  data. 

The  HSFR  program  is  able  to  get  within  30%  of  the  measured  actuator  pressure 
and  gives  reasonable  predictions  cf  the  variations  with  temperature  and  rpm. 
Measurements  of  actuator  pressure  and  damping  characteristics  require  a 
complex  set  of  instrumentation  and  analysis  of  the  data  to  extract  the 
variables  would  require  inspired  judgement.  Therefore  a reasonable  initial 
actuator  pressure  D(PZRPM)  which  includes  estimated  values  for  the  contribu- 
tions of  the  spring  is  800  psi.  Other  contributions  to  actuator  pressure 
are  input  as  zerc. 

Compensator  Valve 

The  compensator  valve  position  is  assumed  to  be  directly  proportional 
to  the  differential  pressure  between  outlet  and  case.  The  lag,  due  to  the 
valve  damping  and  inertia,  is  very  small  compared  to  the  response  ol  the 
hanger  and  is  ignored. 

The  valve  spring  rate  D(INPl’ST)  is  input  in  lbs /in  and  converted  to 
in /psi , 

D(INPPSl)  - D(ARCOM) /D(INPPSI) 

The  differential  pressure  at  which  the  valve  opens  from  outlet  to  actuator 
D(DPVOA)  Is  used  to  determine,  the  valve  position.  Two  pressures  l’OUTMX 
and  P0UTM1  are  derived,  POU'l'MX  is  the  maximum  outlet  pressure  that  can  be 
obtained  assuming  zero  flow  from  the  outlet  to  the  actuator. 

POUTMX  - (C2/Z(L2)  + QPUMP  + DT(PCASE)  *D(COEPLK) ) *ZOUT 

where 

ZOUT  - Z(1.2)  / (1.0  + Z(L2)*U  (CGEPLK.)  ) 

QPUMP  - DT(QINIJST)  + QCAS1N  + QOS1N 


The  minimum  pressure,  POMTMI , which  is  the  outlet  pressure  when  the 
valve  is  just  about  to  open  is  computed  as: 

POUTMI.  ™ D(DPVOA)  + DT(PCASE) 

The  actual  outlet  pressure  lies  between  thi se  limits  and  is  obtained  by 
iteration.  The  valve  orifice  area  is  calculated  using  the  trigonometric 
formula  for  round  port  orifices.  The  valve  displacement  for 
1 POUTMX>POUTMI  Is 

DIS  - (DT(FOUTLT)  - POUTMI) *D(INrPSI) 

Hie  orifice  area  is  computed  as 

AREA  - D(SRAD) *ACOS(B/D (RAD) ) - B*SQRT(D(SRAD)  - b**2) 
where  11  - U(RAD)  - DtS 

D(RAD)  - RADIUS  OE  METER  I NO.  HOI.F, 

D(SRAD)  - D(RAD)**2 

This  area  calculation  works  within  the  limits  of  the  port,  diameter. 

For  the  computation,  two  ports  diametrically  opposite  are  assumed.  When  the 
valve  is  within  the  overlap  region,  the  valve  flow  is  set  to  zero.  No 
allowance  is  made  for  leakage  due  to  diametrical  clearance  within  the  valve. 

For  the  Initial  guess  ol  outlet  pressure  DT(POUThT)  is  computed  at 
. 75*POUTMX  4-  .25  POUTMI.  This  pressure  is  used  to  compute  the  valve 
position,  area,  and  flow  into  the  actuator  DT(QACTU) . The  actuator  flow  is 
then  used  to  recompute  the  pressure. 

IT  OUT  = 1’OUTMX  ~ DT  (0ACT1I ) *ZOU  T 

A check  is  made  to  see  if  the  recomputed  flow  Is  wilhLn  .05  psl  of  the 
pressure  valve  and  if  it  in  not,  the  outlet  pressure  is  updated  by 
DT (rOUTI.T)  « DT(l’OUTLT)  * . 15  + Tl‘OUT*.85 
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The  choice  of  the  . 15j£85  ratio  and  the  initial  guess  ratio  of  ,75j.25 
was  made  using  the  actual  area,  displacement  and  load  impedance  data  which  is 
applicable  to  its  installation  in  the  space  shuttle.  For  other  installations 
adjustments  of  these  ratios  could  reduce  the  number  of  iterations  required  to 
achieve  a balance.  The  tolerance  of  .05  psi  could  also  be  increased  with 
little  penalty. 

Flow  From  Actuator  Piston  to  Case 

When  POUTMI >P0UTMX  the  valve  is  either  closed  or  open  from  actuator  to 
case.  POUTMI  is  changed  to 

POUTMI  = D(I)PVAG)  + DT(PCASE) 

and  if  POUTMI  is  still  greater  than  POUTMX,  the  valve  is  open  allowing 
flow  out  of  the  actuator  so  that  the  pump  flow  QPUMP  increases.  The  valve 
displacement  area  and  flow  (OT(QACTC) ) are  recalculated.  Since  the  flow 
does  not  affect  outlet  pressure,  no  Iteration  is  necessary. 

The  actuator  leakage  to  case  is  assumed  to  be  laminar  since  the  passage 
is  small  around  the  actuator  barrel.  The  actuator  leakage  is  computed  as 
QACTLK  - COELKA* (l)T(l’ACTU)  - DT(PCASE)) 
with  ail  the  actuator  I lows  known,  the  actuator  velocity  is  calculated 
DT(Vl'LACT)  - -QNKT/D (AKACT) 

where 

QNET  = U'i'(QACTU)  - DT(QACTC)  - QACTLK 
The  new  actuator  position  is  then 

DT  (D  IS  ACT  ) - DT031SACT)  + (VOLD+DT  (VELACT)  ) *DEI.T/2  . 

A check  is  made  to  determine  If  the  actuator  is  at  the  stroke  limits. 

If  it  is  the  actuator  flow  must  be  recalculated.  If  the  actuator  is  at 
uaxinium  stroke  (lully  retracted  with  the  pump  at  full  stroke)  then  the 
actuator  pressure  drops  to  case  pressure  and  DT(QACTC)  is  set.  to  zero. 
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If  the  actuator  is  at  minimum  stroke  (with  the  pump  outlet  f.i.iw 
negative),  then  DT(QACTU)  and  DT(PACTU)  have  to  be  recalculated  so  that  the 
actuator  leakage  flow  can  be  determined. 

Pump  Outlet  Pressure  and  Flow 

After  the  actuator  pressure,  flows  and  valve  outlet  pressure  DT(POUTLT) 
are  computed,  pump  outlet  flow  is  calculated  as: 

Q(L2)  - - (QFUMP)  - QPI.EAK  - DT(QACTU)) 
actual  pump  output  pressure  is  then 
P(L2)  - C(L2)  - Q(L2)*Z(L2) 

Pump  Case  Outlet  Pressure  and  Flow 

The  case  outlet  flow  is  determined  using  the  schematic  of  Figure  6,54-2 
to  write  a linear  equation  in  flow: 

QCASDR  » (QCASDR*DT(liULKC)-C3+DT(  PCASE)  ) / (Z(L3)+DT  (BULKC)  ) 

Q (1.3)  - -QCASDR 
The  outlet  case  pressure  is 

P(L3)  - C(L3)+QCASDR*Z(L3) 
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6.54.2  Assumptions 


The  assumptions  In  a model  of  this  nature  are  almost  too  many  to 
enumerate.  By  its  very  nature  the  pump  is  a complex  piece  of  equipment  with 
multiple  leak  paths  across  the  port  plate,  down  the  side  of  the  piston  and 
out  of  the  shoes.  This  whole  set  of  leak  paths  have  been  linearized  and 
assumed  to  be  constant  for  a constant  output  pressure,  which  is  no  doubt 
rather  hard  to  accept.  The  alternative  would  be  go  into  very  detailed 
calculations  with  the  leakage  dependent  on  the  piston  load,  swash  angle , RPM 
and  anything  else  one  could  add.  Unfortunately  this  too  would  probably  be 
inaccurate  so  instead  of  an  inaccurate  complex  leakage  model  we  choose  a 
simple  leakage  model,  which  could  be  improved  when  more  data  is  available 
from  the  verification  tests. 

The  forces  on  the  swash  plate  are  not  taken  into  account  as  it  rotates. 
Flow  and  leakage,  are  all  treated  aa  though  the  pump  had  a continuous  output 

rather  than  the  individual  pumping  pistons. 

A model  which  includes  the  dynamics  of  each  individual  piston  would  by 
necessity  be  considerably  more  complex  and  consume  much  more  computer  time, 
but  is  is  an  alternative  to  what  we  have  done  here. 

In  all  the  calculations  the  bulk  modulus  is  treated  as  a constant  for 
the  high  pressure  (output)  side  and  as  a different  constant  for  the  low 
pressure  (inlet)  side,  the  elastic  expansion  of  the  volume  cavities  is  not 
included  though  a correction  factor  can  be  included  in  the  model  by 
increasing  inputted  volumes  above  their  actual  values. 

Friction  effects  have  not  been  included  primarily  because  of  the  cost 
of  putting  them  in,  but  in  actual  fact  the  forces  on  the  swash  plate  have  an 
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oscillatory  content  which  tend  to  keep  it  in  motion, 
outlet  also  tend  to  keep  the  valve  in  motion  so  that 
not  normally  be  significant. 


The  pulsations  of  the 
friction  effects  would 


6.54.3  Computation 


The  pump  subroutine  Is  set  up  using  the  HYTRAN  program  comnons , plus 
the  D,  DT,  DD,  and  L arrays. 

1000  SECTION 

In  the  1000  section  the  constants  are  initialized  where  desirable  for 
more  efficient  computation.  The  variables  are  initialized  depending  on 
whether  the  pump  is  in  a pressurized  or  depressurized  operating  mode. 

The  remaining  pait  of  Section  1000  deals  with  the  calculations  of  the 
steady  state  pump  characteristics. 

In  order  to  balance  the  pump  at.  some  steady  state  condition,  it  is 
first  necessary  to  establish  what  the  pump  characteristics  are,  over  the 
maximum  range  of  pump  flow. 

To  help  in  this  it  was  assumed  that  these  characteristics  could  be 
approximated  by  a straight  line  interpolation  between  the  pump  conditions 
at  maximum  and  minimum  flows  which  correspond  to  zero  and  maximum  actuator 
displacement  respectively. 

A chain  of  interdependent  calculations  are  needed  to  derive  the  maximum 
and  minimum  conditions.  We  have  to  establish: 

UT(PACTU)  = Actuator  pressure 

DT(QACTC)  = Flow  from  actuator  to  case 

DT(WACTU)  = Flow  from  uuLlei  to  actuator  through  the  valve 

QCASDR  = Case  drain  flow 

QACTLK  =»  Flow  into  the  actuator  due  to  leakage 

DT(DISVLV)  = Valve  displacement 

DT(POUTLT)  * Valve  chamber  pressure  which  is  the  same  as  outlet  pressure 

The  actuator  pressure  is  dependent  on  the  outlet  pressure  due  to  the 
pumping  offset,  and  the  valve  flow  is  dependent  on  the  difference  between 
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outlet  pressure  and  actuator  pressure. 

The  initial  flows  (QACTU  and  QACTC)  are  computed  at  the  appropriate 
valve  positions  and  this  information  is  used  in  the  steady  state  portion  of 
the  program. 

1500  SECTION 

Steady  State  Calculations 

The  pump  which  has  three  connections,  has  a node  located  at  the  inlet. 
The  leg  which  has  the  inlet  connection  receives  the  pump  inlet  pressure 
from  the  steady  state  routine. 

For  the  leg  which  has  the  outlet  connection  as  its  first  element,  a 
value  of  the  output  flow  ratio  is  computed  as 


DT(DISVLV) 


QGUKSS-DT(QOUTLT) 
DT(QINLET) -DT(QOUTLT) 


The  ratio  is  calculated  to  determine  the  percentage  of  actuator  flow 
that  is  actual  leakage  flow  (QACTLK)  into  the  pump  case. 

The  output  pressure  is  determined  by  the  computed  maximum  outlet 
pressure  at  maximum  valve  displacement  DT(POUTM)  plus  the  pressure  drop  from 
case  to  inlet,  DT(DELP13) . 

The  outlet  pressure  is  added  to  PQLEG(INEL,  5)  and  the  output  impedance 


(.00001)  is  added  to  PQLFG (INEI, , 6). 

DT(POTITLT)  is  initialized  to  DT(POUTM)  + DT(DELP13)  . 

And  the  outlet  pressure  PQLEG  (1NEL,  11)  is  also  increased  by 
DT(POUTM)  + D1’(DELP13). 


LCS(INCL,  7)  is  set  to  5 which  means  that  the  LEG  formulae  must  be 
recalculated  for  every  iteration  because  of  the  variation  in  inlet  pressure. 

The  call  for  CON  #3,  the  case  drain,  first  gets  the  value  of  the  flow 
guess  ior  the  case  drain  flow  and  then  calculates  the  actuator  leakage  based 
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on  the  outlet  flow  ratio. 

QACTLK  » DT (DTSVLV) * (DT(QACTC)-DT(QACTU) )+DT(QACTU) 

The  pressure  rise  from  inlet  to  case,  DT(DELP13)  is  then  calculated  using  the 
sum  of  the  leakage  flows  divided  by  the  coefficient  of  case  to  inlet  leakage, 
D(COECIN).  Since  DT(DELP13)  is  based  on  a case  drain  flow,  QCASDR/D(COECIN) 
is  added  along  with  DT(DELP13)  to  PQLEG(INEL,  5)  for  the.  constant  pressure 
rise  temperature. 

1/D(C0ECIN),  the  case  drain  impedance  is  added  to  PQLEG (INEL,  6)  and  LCS 
(INEL,  7)  is  set  to  5 so  that  the  leg  must  be  recalled  each  Iteration  since 
the  leakage  is  dependent  on  the  outlet  pressure  and/or  updated  DT(PINLET)  is 
required  by  the  other  CON  #2  calculation. 

PQLEG  (INEL,  11)  is  increased  by  DT(DELP13)  and  DT(PCASE)  is  initialized 
to  PQLEG  (INEL,  11). 

A test  at  the  start  of  both  the  case  drain  and  outlet  calculations  checks 
to  see  if  INX  ■ 1 which  can  only  be  true  if  CON  2 and  3 are  the  first  or  only 
elements  in  this  leg. 

The  calculation  method  was  two  interdependent  pressure  rises  in  two 
separate  legs  which  is  unfortunately  necessary  since  the  variables  are  not 
easily  separated. 

2000  SECTION 

With  the  completion  of  the  steady  state  calculations,  where  DT(PCASE) , 
DT(POUTLT)  and  DT(PINLET)  are  initialized  and  a value  for  DT(DISVLV)  is 
calculate!,  the  pump  state  variables  can  be  initialized,  ready  for  the 
transient  simulation. 

The  ratio  DT(DISVLV)  is  used  to  initialize  DT(DISACT)  and  DT(QACTU) . 

Actuator  velocity,  DT(VELACT) , valve  displacement,  DT(DISVLV) , and  DT(QACTC) 
are  set  to  zero.  DT(POUTM)  is  set  equal  to  the  pump  outlet  pressure,  DT(POUTLT) . 
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3000  SECTION 


The  3000  section  starts  with  a computation  predicting  the  actuator 
displacement  for  the  current  time  step.  This  value  is  used  in  the  computation 
of  the  actuator  pressure. 

The  pump  inlet  pressure  is  determined  from  the  input  impedance,  Z(L1) , 
a pump  inlet  to  case  coefficient  and  pump  flow  as  shown  in  the  equivalent 
schematic  diagram  of  the  pump  inlet  model,  Figure  6.54-2. 

The  next  step  is  to  determine  the  minimum  (P0UTMI)  and  maximum 
(POUTMX)  pump  output  pressure  range.  The  compensator  valve  displacement  is 
then  computed  using  an  iterative  technique  as  explained  in  the  math  model 
section.  Once  the  valve  position  is  known  the  actuator  pressure  and  flow 
is  computed  along  with  the  pump  outlet  pressure  and  flow. 

The  position  of  the  valve,  determines  whether  the  actuator  flow  is  going 
from  the  outlet  to  the  actuator  or  from  the  actuator  to  case.  The  two 
equivalent  circuit  schematics  used  in  the  solution  process  are  shown  in 
Figure  6.54-2. 

Figure  6.54-2  also  shows  the  schematic  for  computing  the  case  drain 
output  pressure  and  flow,  QCASDR  is  the  sum  of  all  flows  into  and  out  of 
the  case : 

QCASDR  = QPLEAK  + 0ACTT.K  + DT(QACTC)  - D(ARACT) *DT (VELACT) 

- QCASIN  - Q0SIN*2. 

DT(BULKC)  is  the  impedance  of  the  case.  It  is  computed  as  the  fluid  bulk 
modulus  times  DELT  divided  by  the  case  volume. 

The  final  values  of  outlet  and  case  drain  pressures  and  flows  are 
passed  to  the  appropriate  P and  Q arrays.  The  pump  output  horsepower  is 
computed  as: 
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POWER  = - Q(L2)*(P(L,2)-P(L1) ) /6600. 0 
and  is  added  to  the  previous  value  in  I)T(PPOWER). 

Should  the  pump  be  depressurized  at  this  time  step  the  above  calcula- 
tions are  bypassed  and  the  pump  output  pressure  is  set  to  800  + DT(PCASE) 
and  the  appropriate  outlet  and  case  drain  pressures  and  flows  are  computed. 

If  the  pump  inlet  pressure  is  le3s  than  the  minimum  pump  inlet  pressure, 
a message  is  printed  that  gives  the  time  at  which  pump  cavitation  occurs. 


6.54.4  Approximations 


The  approximations  used  in  the  program,  are  the  formula  used  to  generate 
the  compensator  valve  flow  areas,  and  the  rather  gross  linearization  between 
maximum  and  minimum  flows  used  in  the  steady  state  calculations. 

The  remaining  calculations  follow  the  math  model  which  is  itself  a large 
approximation. 

6.54.5  Limitations 

The  current  pump  subroutine  does  not  attempt  to  describe  the  true 
cavitation  effects  that  can  be  caused  by  improper  filling  of  the  pistons. 

The  effect  on  swash  angle  and  RPM  vary  greatly  from  pump  to  pump. 

However,  it  is  also  a condition  which  the  designer  should  avoid,  by 
Improving  the  pump  inlet  supply  system,  to  prevent  the  inlet  pressure  dropping 
to  the  point  where  cavitation  effects  are  a concern. 

A current  limitation,  is  the  correct  steady  state  prediction  of  pump 
outlet  pressure,  when  the  system  flow  exceeds  the  pump  capacity.  The  transient 
section  will  limit  the  flows,  but  flow  limitation  is  not  included  in  the 
steady  state  section. 
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6.54.6  Variable  Names 


Name 

D(ARACT) 

D (ARCOM) 

AREA 

BULK 

DT(BULKC) 

DT(BULKO) 

C 

D(COEALK) 

D(COEALM) 

DT(COEAIS) 

DT(COEALZ) 

D(COECIN) 

COELKA 

D(COEOSO) 

D (COEPLK) 
D(COEVLl) 

D (COEVL2) 
DT(COEVl) 

DT (COEV2) 

CONA.CONB 

Cl 

C2 


Description 

Actuator  area 
Compensator  valve  area 
Valve  opening  area 
Impedance  of  actuator  volume 
Impedance  of  case  volume 
Oil  bulk  modulus 
Dummy  variable 

Coefficient  of  actuator  leakage  at 
zero  pump  displacement 

Coefficient  of  actuator  leakage  at 
maximum  pump  displacement 

Dummy  variable 

Dummy  variable 

Coefficient  of  flow  from  case  to  inlet 
Dummy  variable 

Coefficient  of  outlet  flow  due  to  actuator 
motion 

Coefficient  of  pump  leakage  (outlet  to  case) 

Discharge  coefficient  outlet  to  actuator 

Discharge  coefficient  actuator  to  case 

Constant  term  used  to  determine  outlet  to 
actuator  pressure  drop 

Constant  term  used  to  determine  actuator 
to  case  pressure  drop 

Dummy  variables 

Inlet  characteristic  pressure 

Outlet  characteristic  pressure 


Dimension 

IN**  2 

IN**2 

IN**2 

PSI/CIS 

PSI/CIS 

PSI 

CIS/PSI 

CIS/PSI 


CIS/PSI 

CIS/ (IN/SEC) 
CIS/PSI 


PSI/CIS**2 

PSI/'CIS**2 


PSI 

PSI 
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Name 

Description 

Dimension 

C3 

Case  drain  characteristic  pressure 

PSI 

DT(DELP13) 

Pressure  drop  from  case  to  inlet 

PSI 

DT (DELP23) 

Pressure  drop  from  outlet  to  case 

PS1 

DIS 

Dummy  variable 

— 

DT(DISACT) 

Actuator  displacement 

IN 

D(DISAM) 

Actuator  position  at  maximum  pump 
displacement 

IN 

D(DISAMI) 

Actuator  position  at  minimum  pump 
displacement 

IN 

D(DISP) 

Theoretical  maximum  pump  displacement  changed 
to  IN**3 /IN/RPM 

IN** 3 /REV 

DT(DISVLV) 

Valve  displacement 

IN 

D(DISVM) 

Maximum  valve  displacement 

IN 

DFDAMP 

Dummy  variable 

— 

D(DPVAC) 

Pressure  at  which  valve  is  open  from 
outlet  to  actuator 

PSI 

0 (DPVOA) 

■Pressure  at  which  valve  starts  to  open 
from  outlet  to  actuator 

PSI 

D(INPPSl) 

Spring  rate  of  spool  changed  to  IN/PSI 

LB /IN 

DT(ISYS) 

System  number 

— 

D(KTIME) 

Pressur izat ion/ depressurization  time 

SEC 

D(PACCP) 

A.ctuator  pressure  due  to  piston  acceleration 
at  3600  RPM  and  maximum  pump  displacement 

PSI 

DT(PACTU) 

Actuator  pressure 

PSI 

DT(PCASE) 

Case  pressure 

PSI 

D(PDAMP) 

Hanger  damping 

PSI/IN/SEC 

PD  ISA 

Predicted  actuator  displacement 

IN 

Name 


D(PDISAC) 

DT  (PINLET) 

D(PINMIM) 

DT(POUTLT) 

POUTM.POUTMl 
POUTMX , POUTZ 

POWER 

1)T  (PPOWER) 

DT(PRPM) 

D(PSLRPM) 

D(PSPEED) 

D(PSPRIM) 

D(PSl’RIZ) 

D(PZRPM) 

DT(QACTC) 

QACTL.K 

DT(QACTU) 

QCASDR 
QCASIN 
DT(Q INLET) 
QNET 


Description  Dimension 

Pressure  at  3600  RPM  and  maximum  pump  PSI 

displacement:  changed  to  rate  of  change 
of  pressure  with  actuator  position 

Inlet  pressure  PSI 

Minimum  inlet  pressure  PSI 

Outlet  pressure  PSI 


Dummy  variables 


Pump  output  horsepower  HP 

Cumulative  output  horsepower  HP 

Pump  operating  speed  RPM 

Slope  ol  pressure  vs  RPM  curve  PSI /RPM 

Pump  operut ing  speed  RPM 

Actuator  pressure  due  to  spring  force  PSI 

at  maximum  pump  displacement  adjusted 
to  slope  PSI /IN 

Actuator  pressure  due  to  spring  force  at  PSI 

zero  pump  d 1 spl  icement 

Actuator  pressure  Inputted  at  3600  RPM  PSI 


and  zero  pump  displacement;  adjusted  to  zero 
RPM 


Actuator  flow  with  valve  is  open  from  CIS 

actuator  to  case 

Leakage  flow  from  actuator  to  case  CIS 

Actuator  flow  when  valve  is  open  from  CIS 

outlet  to  actuator 

Sum  of  all  flows  into  and  out  of  the  case  CIS 

Plow  from  case  to  Inlet  CIS 

Inlet  flow  CIS 

Net  actuator  flow  CIS 


6.54-20 


Name 


Description 


Dimension 


QOS  IN 

DT(QOUTLT) 

QPLEAK 

QPUMP 

D(RAD) 

D(SRAD) 

TPOUT 

DT(VELACT) 

d(vlvoe) 

D(VOLACT) 

D(VOLCAS) 

VOLD 


Outlet  flow  due  to  actuator  motion 

Outlet  flow 

Pump  leakage  flow 

Pump  flow 

Radius  of  valve  port 
Initial  radius  squared 
Dummy  variable 
Actuator  velocity 
Valve  overlap 
Actuator  volume 
Case  volume 

Previous  actuator  velocity 


CIS 

CIS 

CIS 

CIS 

IN 

IN**  2 


IN/SEC 

IN 

IN**  3 
IN**  3 
IN  /SEC 


ZOUT 


Outlet  impedance 


PS1/CIS 


6.54.7  Subroutine  Listing 


SUBROUTINE  PUMP 5 4 ( 0, DT, DO, L) 

****  REVISED  JUNE  25,  1975  **** 

DIMENSION  D( 37) ,DT{ 43) ,00{ 1)  ,L(10) 

C0.-i.50N  NTELPL,  NTOLPL,  I PT,  I POINT,  NPT3,  IN  EL,  KN EL, NTQPL , H LPLT(  51,3), 
1 ?QLEG( 90,12) ,LCS(90,10) , ILEG( 1 400) ,PN(00) ,QN(90) 

COi-EION/SUD/PAR.! ( 150,0)  ,P,i(  1500.)  ,QH(1500)  ,P(  300)  ,0(  300)  ,C(  300) 

1,3(  300)  ,RHC(  20)  ,S20R!i0{  20)  ,VISC(  20)  ,BUL:<(  20)  ,TE;*i^(  20)  , PVA P ( 20) 

2 , ATPRES , T , DELT , TP  INAL,  PLTDE  L , PI , TITLE  (20),  Lt'Grl , ICON 

3,  «Tb.iP(  99)  , LSTA  RT(  150)  ,NLPT(  150)  , LTY?£(  99)  ,«C(  99)  ,IKX,Ir12 

4 , IiJV,  ISTKP,  NLIME , NLL,  INO,I  rjMTR , INLINE , /.1-TLL , HULLO, ; .KNODL  , HU PLOT 
5 , HULPTS , HDS 

INTEGER  ARCOil,  RA-J,  GRAD,  COt-VLl , COEVL2 , ARACT,  PSPRIZ  , PSPRI/i  , 

1 PACCP,  PZ RPil , PS LRP.i , POIS AC , PDA;i?,DI3P,  DPVOA,  DPVAC, 

2 OIK  AH  ,DIS  A.i  I , CCEALl',  COE  A L.-i , C OlPLK  , CQfiC  I N , VO  LC  A S , P I /If'.  I '< , 

3 PoPEED,  ?R?.-i,PPOWLR,C?ACT-J,0ACTC,  PACTU,  POUTLT, 

4 PC  AS  Li,  PIN  LET,  COE  VI , COEV2,  oULUC  , VELACT,  DISACT,  DISVLV, 

5 COfiALS  , CGeALS  , CLLPl  3 , POUTZ  , POUT.-i , 3ULTO,  C0UG30 
5 , OI  U I.E  T , 00  UT  LT , VL  VO  L 

D(  ) ARRAY  ***** 

DATA  OPVOA/i/  , I «? PS  1/ 2/ , ARCOh/ 3/  , RAD/4/  , 3.00  0/5/ , VLVOL/6/  , 

1 COEVLl/7/ , COe.VL2/ V , ARACT/ 9/ , P3PRIZ/1 0/  , PSPRI. i/ll/ , 

2 PACCV1  7/ , PZ  ft?,  )/ 1 3/  , POISAC/1 4/  , PSLRP.i/1  5/ , PDA.iP/1  6/  , 

3 D 1 3 P/ 1 7/ , D 1 5 A i/ 1 3/ , 0 1 3 AH 1/19/ , CO  E AL  K/  2 0/ , CO  E A Li/ 2 1/  , 

4 CO  L P LX/  2 2/ , COEC I 1/  2 3/ , VO  LC  AS/  2 4/ , PlSiU  I N'/  2 5/ , PS  PE  E 0/  2 5/ , 

5 COEOSO/ 2 7/ , DPVAC/  2 «/ , :<TI. i I ./  20/ 

DT ( ) ARRAY  ***** 

DATA  PRP.-i/l/ 1 PPOr.tR/ 2/ , QACTU/4/  , QACTC/5/ , 

1 PACTU/ 7/ , POUT  LT/  3/ , PCASt/V , PINLET/1 0/  , COt-Vl/11/ , COLV2/1 2/  , 
BULTC/ 1 3/  , VL  LACT/ IV,  DISACT/ 1 5/ , DISVLV/ 1 5/  , KC/ 1 7/  , COEALZ/l  3/  , 
COEALS/ 10/,  POUTZ/2  0/,  POUT. i/ 21/,  DELPl  3/2  2/,  9ULXO/23/ 

, 0 1 U LE  T/  24/,  00  UT  LT/  25/,  I SYS/ 4/ 


V- 

C 


* * * 


IF(IEMTR)  1 000,2009,3000 
100O  SECTION 


1000  CO 

• :tik 

UL 

IF 

(it 

f i L . ’)  E • 

0) 

GO  TO  1500 

( rj  PO 

. i l:  IV ) = 0 

. o 

• — 

t4Te.  i 

D ( 1 1-1  Q ) 

t 

x i. 

(U.L 

T.ll) 

4'*  

■ j+10 

C 

02  4 0 

a VI. SC 

OF 

. I L-  M - 5 5 0 5 3 

PO 

wLD= 

VI.5C  ( N 

)/ 

.0249 

AT  100  F 


DT(  S’JL'-C  ) =3UI.< ( J ) *PELT/0(  VOLC/vS) 

DT ( COi'Vl ) = 2. 0*D(  COEVLl ) *3  ?.ORHO(  £YL.:  P(  I *D)  ) 
DT ( CCeV2)  = 2. 0*0(  COLVL2)  * 3 20 RilO ( U ) 

DT  ( C 0 E A L 7, ) = D ( C 0 L A L K ) * ? OS  L R 
DT  ( CO  LA  LS ) = D ( C 0 1.  A L. . ) * ?0.-«  L E 

DT(  COLAT.G  ) *(  DT(  COLALS)  -PT(  COEALZ  ) )/0(  DI3A.;) 

DT  ( 6 ) = 0 . 0 

IF ( D(  ARAD)  . Ml; .0.0)  30  TO  125 0 


mJi  M tiiU- 


* 


6.54-22 


6.54.7 


(Continued) 


D(SRAD)=D(RAD)**2 

D(  IMPPSI ) = D(  ARCCii ) / D(  INPP13I ) 

D(  DPVAC)  =D(  DPVOA)-D(  VLVOL)/D(  IMPPSI ) 

D(  DISP)  =D(  DISP)/60«/D(  DISAii) 

D(PSPRI;1)  = (D(  PS?r<Iil)-D{  P3PRIZ)  )/3(DISA.,) 

D( PACCP) =D( PACCP)  / ( D( OISAu) *3600.* *2) 

D(  POIS AC ) = ( D(  PDI3AC ) ~D(  PZRPis)  )/D(  DISA.i) 

C(  PZRP.i)  =D(  PZ  RPM)  - D(  PSLRP.'i)  *3600. 

1250  DT ( PR  PH ) =D( PS PEER) 

DT  ( 5 IJ  L XO ) = 3 U L K ( KT 1 Hi  P ( I N l) ) ) * D ( D PVO  A ) / 2 2 3 0 0 0 . 

C***  THIS  SECT  I Oil  CALCULATES  THE.  STEADY  STATE  CHAECTLRISTIC 
C 

DT  ( PO  U7  LT ) ( O P VO  A ) + 5 5 . 0 

IP  ( D(  KTI H E). BO. 0.0)  D ( XT  It  1 L ) = 1 0 0 0 1 . 

Ii'(INV)  1020,  1040,1030 
1020  IP( L( ISYS) .MB.-IUV)  30  TO  1040 
GO  TO  1035 

1030  I?(L(ISYS)  .BO.I/JV)  CO  TO  1040 
1035  D(  XT  IUE ) =-D(  XT IHt  ) 

1040  I F ( D ( XT  I rl  !•. ) . LT . 0 . 0 ) DT  { POUT  LT ) * 8 0 n . 

L( I SYS ) =0 

I F ( O ( KT  1 ,1 E ) . LT . 0 . 0 ) L(  IoYS)»2 
OT ( POUT. i)=DT(  POUTLT ) 

RT(  VL  LACY)  = UT(  PO'JT.l)  *D(  COCPLK) 

DT(  OISLET)  =D(  DIS  ?)  * DT(  ?•.??!  i ) *0(  OISAu)  - DT  ( V t.  LA  C T ) 

OT  ( DOTJT  LT ) =-DT  ( VI,. LACT ) 

DT ( OACTC ) = 0 . 0 

DT(  OACT'J)  = 0.0 

DT ( D 1 3 VLV ) = . 5 

DT(PCAST.)  = 0.0 

DT  ( DLL  PI  3)  = 10.0 

I F ( C ( XTI.'lL  ) . LT .0.0)  RETURN' 

DT ( R 1 3 ACT ) = 0 . 0 
COI:TjTA=DT(  COlALZ  ) 

127  0 COOTI'IUt’ 


DT  ( P A C T U ) = DT  ( PC  A 3 E ) + O { PS  ? it  I Z ) + DT  ( D I S AC  T ) 

1 + OT { 0 1 3 ACT ) * ( D ( ?ACC  P ) * DT  ( ? P.  ?.,)**  2 + D ( ? DI . 

2 +(  D(  PZRP.i)  +D(  PGLRP.i)  *uT(  PRP.i)  )*DT(DULKO 
IF(  IeHTR.  t0.  0)  GlTUUM 

DT(  d.ACTU)  = OT(  PACTU)  +COl L A 
I F ( OT  ( OACTC ) . R l. . O'.  3 ) GO  TO  122  5 
OT ( OACTC ) = DT ( OACTU ) 

DI( DIG ACT ) =D( DISAU) 

COELT:A=OT{  COlALZ  ) +DT( DIGACT)  *DT(COLALS) 
GO  TO  1270 


*D(  PS  POI.J ) 
SAC)  ) 

) / DT  ( POUT,  i ) 


123  5 


C 

c 


DT(CIULLT) =D?(OIMLeT)-DT( ?AC?U) 

DT  ( OO  UT  LT ) = OT  ( OOU  TLT ) - DT  { 0 \CTC ) 
RLTJRM 

STEADY  STATE  CALCULATION  SECTION 


o o i n o ( i o o o o 


6.54.7  (Continued) 


I\’D=COn  POllLNT  * , XSLL-CONUECTIOh  ft,IiUL=LLG  f 
COM  HAMLET,  COM  it 2=0UT LET , COM  13-CAS£  0<?MM 
THE  ISLE?  IS  A MODAL  ?OIMT  IN  T‘U-:  SYSTL.1 


1500  IF( KULL-2 ) 1510, 1530, 1520 

1510  DT(  PIMLLT)«P0LlSO(  IN EL, 11) 

GO  TO  1-00 

1520  IF(I\X..ML.l)  GO  TO  1700 

0C A ;i D R = P OL LG ( IMKL,  1)  *?OLEG(  IMEL,  2) 

OACT L-< = OT ( 0 IS  V LV ) * { DT { OACTC ) - DT ( OACT’J ) ) + D? ( 0 ACT’D ) 

DT( DLLPl 3} = ( DT(  VLLACT)  +^ACTLK-OCASDR)/D( COLCU-J ) 

P O L ii ; G ( I « L L , 5 ) = P 0 L E G ( I >1 E L , 5 ) + DT  ( 0 L L P 1 3 ) + 0C  A S 0 E/  0 ( C 0 L C I "I ) 
P0LLG(  INEL,  0 ) = ?">LLG(  IUEL,  5 ) +1 . 0/D( COCCIN) 

LCi>(IMEL,7)=5 

? 2'LlI'G  ( Ir-JuL,  1 1 ) = P ?L  t G ( I U L L , 1 1 ) + DT  ( 0 EL  Pi  3 ) 

DT(  °CA5E)  = ?0LlG(  IOf.L,  11) 

GO  TO  1600 

1.530  I?(  IUX.UI;.  1)  GO  TO  1700 

OT(  DTSVLV)  =?C!Lf;G(  ITLL,  1)  *PQLKG(  IMEL,  2)-DT(  OOUTLT) 

DT(  DIG VLV)  =DT(  DISVLV)  /(  DT(  01  MLE?) -DT(  D0UTL7 ) ) 

I P ( DT ( 0 1 G VLV ) . L7 .0.0)  DT ( D IS VLV ) = 0 . 0 
T F ( DT ( DIG VLV) . OT. 1.0)  DT ( DIG VLV) *1 . 0 
? OLEG  ( I T E L , 5 ) = ? %».;G  ( I X E L , 5 ) + OT  ( •? 0 DT.  i ) +DT  ( Di . L P 1 3 ) 

POLLS ( I* EL,  0 ) - POLLS ( IULL,  5 ) + . 00001 

POLLS ( I Ti i:L,  11 ) = P° Lf  G(  T SO.  L,  1 1 ) + OT  ( POUT  i ) + DT  ( O I:  L Pi  3 ) 

DT(  PCUTLT)=?0Le:G(  IMEL,  11) 

LCS(  IMI.L,  7 ) =5 
5 00  P.ETUm* 


17 

10 


-JRIT h{  0,1300)  I\;D,  DMCL,  I\U.,L 
FOfV;AT(  5X,  100  CALL  SLTJEUCl,  i.POQO 
15,14;?  CODOJ-CTIOM  MO  ,I5,7H  LLO 


0 00 


DRITLf  0,000) 

F0V!.iAT(  1 OX,  33i?P!\OGPA.i  STOP 


10 


O. 


CTO?  6A5* 

***  2000  SECT I OO 
300  0 COTTIlX.Il 

DT  ( 0 1 ;3  ACT ) = OT  ( C IS  VL  V ) * D ( D IS  A .-. ) 
DT( VLLACT )=0. 0 


DL. TiiCTLO  IV  CO.J?O  ib'!T 
MO  ,15) 

■'OUTIGL  PM.JP54 


OT(  TACTU)  = DT(  DIG VLV)  * ( DT ( '\ACTC  ) -DT(  OACTU)  ) +15? ( DACT’J) 
OT ( OACTC ) =0 . 0 
DT(  OT- 5 VLV)  *0.9 


DT ( POUT. ; ) = DT ( POUT LT ) 
GO  TO  1270 


***  3000  SECT I OS 
000  CONTINUE 

CALCULATE  TRASSI CUT  R ESPOUSE  OF  ?U..» 


PO*.’L  j'=0  . 0 


6.54.7  (Continued) 


LI  = L(  1 ) 

L2»L(2) 

L3=L(  3 ) 

C1=C( LI ) 

C2=C(L2) 

C3=C(L3) 

VOLO«OT(  VLILACT ) 

DT(  O»\CTO)«0.O 
DT(  QACTC  ) = 0. 0 

0 ( *>TIML ) = D(  KTI.-.E ) +DLLT* L(  I SYS  ) 

I F ( T • GT . 0 ( XT Ih L ) ) GO  TO  '1000 
P DI  S A=  DT  ( n 1 5 ACT ) +OT( VLLACT)  * DC  LT 
CT(  ?AC?U)*D(  PS  PRIZ ) +POICA*  D(  PSPRI.-i) -VOLO*U(  PDA..?) 

1 +POTSA*  ( D(  PACCP)  *OT(  PP.P-.i)  **2+U(  PDIGAG ) )+DT(  PCASL) 

2 + ( D(  PZ  P.P.i)  +0(  P'J  LRP.i)  *UT(  Pi<?.i)  )*DT(8UI,:<0)/DT(  POUTLT) 
AOSIM=-VOLn*D( COEOSO) 

0PU.1  P* ?OI S A* 0 ( 0 IS  P ) * DT ( PP  P:i ) +OOS I ■ ! 

07  ( PINU:T)»(C1/Z(L1)+0T(  PC-ASL)  *D(  COLCF*!)  -OPUviP) 

1 /( 1 . 0/3  ( LI ) +P(  COLCI'4)  ) 

I F ( DT ( F I”  LF.T ) . LT . D ( ? I II))  DT  ( P I ,i  LbT ) = D ( P I !3. I M ) 
DT(OI:;LCT)  = (C)-OT(  PI  v’LFT)  )/S(Ll) 

DCA;3i::=(DT(  PC  ASS; ) — DT(  PIMLLT)  ) *D(  CCLCIM ) 

Dp!Ji;P=DT( 01 .4  LET)  +OCA;3I'J+DOSI  1 
COELDA-UTf CObALZ ) +PQISA*UT( COCAL3 ) 

ZOUT-Z  ( L2  ) / ( 1 . 0+Z  ( L2  ) * D(  CCbPLR ) ) 

3200  P0U?.iX*(C2/Z(L2)+0?UriP+DT(  PC  AGE)  *D(  COLPLK  ) )*ZOU? 
POlJT.-i  I = D ( D PVO  A ) +DT ( PC A3L ) 


3210 


IF(  POUTUX.LT.  POUTtil)  DO  TO  3220 
DT  ( PO!JT  LT ) = POUT  .X*  . 7 5+POUT  •<  I * . 2 5 
013*  ( OT(  POUT  LT ) -POUT.-I  I ) * 0(1  ) 

3=D(  SAD) -DIG 

I P ( 3 . L T . - 0 ( R A D ) ) GO  TO  3214 

AllL'A=D(  3 KAO)  *AC05(  3/0{  SAD)  ) -3*30RT(  D( 


AO) -0* *2 ) 


3214 

3215 


3 216 
3217 


30  TO  3215 

APLA=D( SPAU) *PI 

IF(  POi'JLR.  LQ»  0.0)  30  TO  3216 

COMA-  ( A PbA*OT  ( COLVl ) ) * * 2/  ( 2 . *COl.L<\A  ) 

COMA-2* AGS (DT(  POUTLT ) - DT  ( PCASb)  ) *CGCLXA/CO.n*A 
DT  ( OACTU  ) -COi'J.A*  ( 3 0 F T ( 1 . Q+CO-T-: ) - 1 . 0 ) 

CO  TO  3217 

jT(OACTU)=DT(COCV1)*AislA*SA.;t(  DT(  POUTLT) -DT(  PACT*.))  ) 
TPOUT=  POUT:  ,*<- OV ( OACTU ) * ZOUT 


IF( APS( TPOUT-OT( POUTLT) ) .LT. 0. 05)  30  TO  3230 
OT ( POUTLT) =DT( POUTLT) * . I 5+TPOUT* . 25 
CO  TO  3210 


C 

C 

3220 


FLOtv  F PC.  i ACTUATOR  PISTOU  TO  CASE 
?0U7«I*3( 0?VAC)+DT( PCASL) 

T F { POUT-.-! X . CK . POUT. ! I ) GO  TO  3 230 
d i •;  = ( po  ijc. ■:  i - pout.  ; x ) * o ( i • ; p ?-j  i ) 


6.54-25 


o n 


6.54.7 


(Continued) 


U=0( RAD) -DI3 

IF( 3. LL. -D( RAO) ) GO  TO  3225 

AREA«0<  SHAD)  *ACOS(  ‘3/D(  RAD) ) -3*3QRT( D( 3RAD) -3* *2 ) 

GO  TO  3226 

3225  ARF.A=D(SRAD)*PI 

3226  OT(0ACTC)  = DT(COCV2) *ARLA*3CPA.3S ( DT( PACTU) -OT( PCAt IL) ) 
3230  IF( POWBR.Mt. 0. 0)  GO  TO  3250 


32-?n 


3250 


3300 


3400 


r 


TEST  PISTOi'J  DISPLACEMENT  AGAINST  riAXIi-illfi  STROKE 
OACTLK=( OT( FACTO) -OT( PCASt) ) *COLLKA 
0NET=DT( OACTU) -OACTLK-DT( DACTC ) 

DT(V!iLACT)  =-OHET/D(  ARACT) 

DT  ( OIS  ACT ) * DT ( OIS ACT ) + ( VC  LD+DT  ( VL L4CT ) ) / 2 . * D L LT 

CALL  XLI.'iIT(  OT(  OIS  ACT)  , DT( VLLACT)  , POWER,  D(  DI3A.il ) , D(  01  JA.J ) ) 

IF( POWER. BO. 0.0)  GO  TO  3300 

IF(DT(PI  'JLl;r)  .LF,.0(PI'l..I'O  ) CO  TO  3240 

0PU.4?-O(  DI3P)  *DT(  PRP.'I)  *DT(  DIG  ACT) 

003 I M* 0.0 

IP(  DO.vLR.E0. -1.0)  GO  TO  3200 

DT( DACTC ) =0 . 0 

DT  ( FACT'J)  *OT(  PCASL) 

0ACTLK=0. 0 
GO  TO  3300 


OT(  PA.CrrJ)  = OT(  PCASL)+0T(  'VACTUJ/CCLLXA 
•pAC?L’<=DT(  OACT”) 

°PLt.AX=(  PT(  POTJTLT)-OT(  PCASr. ) ) *D(  COEPLK) 
?(  L2)=-(0Pa-i?-0?LFAV-DT(OACTU)  ) 
DT(0ISVI,V)  = 3I3 


■ X A : 


OC  AS  0 R= 0 PL  LA  X +0ACT  LO + DT ( QACTC ) - 0 ( A PACT) *C?( Vi. LACT) - 
0CASOR-  ( OC  ASO«*DT(  3ULKC  ) -C  3+OT(  PCASL)  )/(Z(t.3)  +0?(  PULKC ) ) 
DT ( 6 ) =A  PL  A 
P ( L 1 ) = DT ( PI.'! LILT) 


T %1, 


■0(  LI ) = OT(  01 0 LET ) 

DT  ( POUT  LT ) =C ( L 2 ) - Q ( L 2 ) * 3 ( L 2 ) 
?(  L2)=P?(  POIJTLT) 
o(L3)=-OCASDR 

DT  ( PC  AS  L ) =C  ( L 3 ) + jC  AS  DR*  S(L3) 
P ( L 3 ) = DT ( PC.ASL) 


+ ■/ 


P0V»EP=-0(L2)*(  ?(  L2 ) - P ( LI ) ) / 6 6 0 0 . 0 
DT{  P?0riEr%)*?0->LR+D?(  PPOWLP) 

Ip(  OT(  PI  4L.LT)  .LIL.  0(  Pll-'.il  =2 ) ) WKITc! ( 6 , 3 3 ] 0 ) T 
Pf/T'JRU 


C DE?RliSS!JI’I7,i:0  CALCULATIONS 

*000  OP[1..,P=0(DIS?)  *D(  DIS-Vl)  * DT  { PR^i) 

XASO:<=3  00.*O(COr.PL:<)-(DT(  PCA3L)-D7(  PI’JLKT)  ) *D(  COi  CT  \) 
DT ( POIJTLT )=DT(PCASL)  + 3 00.  - 

IF (C2.GT. DT ( POUT  LT ) ) DT { POUT LT ) =C  ? 

0(L7)=(C2-DT( POUTLT) )/Z( L2) 


■o.r'A? 


, - 4 \ V \ 

\\  k'QA  V 
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6.54.7  (Continued) 

IF(Q(L2)  .LT.-OPUliP)  Q(  L2 ) =-nprj,4p 
DT ( QINLBT) =QCASDR-0( L2 ) 

DT(  PI\-LtT)=Cl-DT(ci.^LET)  *3{Ll) 

DT { DIS ACT ) = D(  OISAi'i ) * ( 8 00 . * D(  COCPLK)  -0(  L2 ) ) /OPUn P 
DT ( PACTtf ) =0. 0 
DT ( VK  LACT ) = 0 . 0 
GO  TO  3400 

3310  FORi'l.AT(  2 X ,35 H* *******  PtJuP  CAVITATIOM  OKSET  AT  T= 
END 


,E12.5) 


1; 


6.61  SUBROUTINE  RSVR61 

RSVR61  is  a simulation  of  a hypothetical  constant  pressure  reservoir 
that  can  be  used  In  test  simulation  work.  The  input  pressure  is  maintained 
without  fluctuation  while  the  flow(s)  are  adjusted  to  the  line  requirements 


A maximum  of  four  connections  can  be  used. 


FIGURE  6.61-1 

TYPE  NO.  61  CONSTANT  PRESSURE  RESERVOIR 


C C‘ I 1 


6.61.1  Hath  Model 


SECTION  3000 

Flow  at  each  active  connection  based  upon  the  input  constant  pressure, 
PRES,  is  calculated  using  the  algebraic  equation 

Q(N)  = (C(N)-D(1))/Z(N) . 

6.61.2  Assumptions 

The  reservoir  is  assumed  to  have  an  inrini tely  large  gas  volume 
so  that  pressure  remains  unchanged. 

6.61.3  Computation  Methods 
SECTION  1000 

Counter,  L(5) , and  steady  state  flow  variable,  D(2) , are  set  to 
zero.  Variable,  1NV  is  stored  in  1.(6). 

SECTION  1500 

Section  1500  sums  flows  into  and/or  out  of  the  reservoir  as  the  entry 
is  called  for  each  active  connection.  Counter,  1(5),  is  incremented 
by  1 each  time  the  entry  is  made  until  the  counter  is  equal  to  the  numbei 
of  active  connections,  1(6)  The  counter  is  then  reset  to  zero.  Each 
entry  determines  if  the  flow  is  into  or  out  of  the  reservoir  and  makes  any 
necessary  ad j us tiuent. s in  the.  flow  sign.  The  flow  is  added  to  the  old  net 

fluvf 

1600  D<2)  = D(2)  + QR 

once  the  total  net  flow  has  been  determined,  QN(N)  is  calculated 
QN (N)  - D(l)*20 . - 0(2) 

Net  flow  is  then  reset  to  zero. 


D(2)  - 0.0 


SECTION  3000 


Flow  at  eac.h  active  connection  is  calculated  using  a DO  loop.  The  flow 
is  calculated  for  each  connection  and  stored  in  the  Q array.  Input  pressure, 
D(l.) , is  stored  in  the  P array. 

Q(N)  - (C(N)-D  (1))/Z(N) 

P(N)  - D(l) 


6.61.4  Approximations 
Not  applicable. 

6.61.5  Limitations 
No  applicable. 

6.61.6  Variable  Names 


VAR1ADLK 


DESCRIPTION 


UNITS 


0(1) 

1 

N 

NCI 

QA 

QR 

qs 


Reservoir  Pressure 
Counter 

Dummy  Variable 
Dummy  Variable 
Dummy  Variable 
Steady  State  Flow 
Dummy  Variable 


PSIA 


CIS 
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SECTION  1500 


SECTION  3000 


STEADY  STATE  AND  3000  SECTION  CALCULATIONS 
FIGURE  6.61-2 


6.61.7  Subroutine  Listing 


SU'JROfJTI^L  RSVW61  ( Q,OT,nn,L) 

C ***  Rt VIS LO  'VK.-'JS?  5 , 107  5 *** 

OOfJr?Lt  PRECISION  DO 

CO,i.  !0  -:  iJTfcLPL,  MTOLPL,  I PT  , I POI  si?  r "JPTS , I. ILL,  FMLL,  ••7TOPL,  MLPLT (61,3), 
1 POLLG  ( 9 0 , 1 2)  , LC  S ( 9 0 , 1 0 ) , I LCO  ( 1 4 n 0 ) , PH  ( 9 0 ) , Oi  l ( 0 ) , ?L  X ( 0 0 ) 

CO,"., iO V3U VPA *.4(150,9)  , Pri ( 1500)  ,Q;I(  1500)  , P(  300)  ,0(  300)  ,C(  300) 

1,2(  300)  ,l<HO(  .30)  ,S 2OR>10 ( 20)  ,VI5C( 20)  ,3ULK(  20)  ,Tti-.!?(  20)  , ?VAP(  20) 

2 , A T n P t 3 , T , Ob LT , T P I .4 <A L , PL’PCbL,  PI  ,TI?LE(  20)  , Of.G!i , ICON 

3, XTiv.P(  00)  ,LS?\AT(  150)  ,LLP?(  150)  , L TYPt (00)  ,NC(  90)  ,I  'JX,I;JZ 

4 , 1 r!  V , I S T L p , A!  L r It , t L , I * 1 ■ 0 , 1 1,  A'£ R , r-5 NLINL,  .1 W L L , . 1 '•<  LE C,  , ,••  N S 0 0 £ , AA  ? LOT 
5,i-iKLPTS,.iOS 

DI.llXSIOS  =0(1),  OT(  1)  ,00(1)  ,L(1) 

IF ( Ii.STR)  1000,2000,3000 
1000  COi'ITIi'iUt 

I?(  ISiiL.Wi;.  Q)GO  TO  1500 
0( 2) =0.0 
L(  1 1)  = 0 
T,(  1 2)  =I’Z 
RLT'jrn-j 
16  00  CO-TTI 


L(  1 1 ) = L ( 11)4-1 
LC  3 ( I : I..  T.» , 7 ) = 5 
^A  = n>r.i,n(i  ;t.L,  1) 

*’L=P(-Li  o(  r t L , 2 ) 

OF:  = OS*-\\ 
n=LCS(  I ;l.L,3) 

Tc(  I'-iV.  1i..  1 ) 30  :n  1500 

A 

0 = LCS(  T.'H.L,  2 ) 

16  01  0(  2)=0(  D+Oi4 

IF  ( L(  11)  .ML.  L(  12)  ) Ri.TL’K.J 
'*■"’('.’)  = •:•(  1)  *20. -0(  2) 
plz(  ;»)*?!).  o 

P(  2 ) = n . 0 
L ( 1 1 ) = 0 
Ft  rn«t: 

2000  CC’.'TI  *o»: 

Rl.TJit.- 

3000  C-0  'j  I*  I * ,r.l? 

TC  ! = ’!€{  Iv2) 

r>u  3100  1=1, ;jci 

f-l»L(I) 

3H)  = (C(-:)-0(l)  ) / Z ( : : ) 
3100  P ('•)=  D ( ] ) 

hit:;  am 
eno 
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6.62  SUBROUTINE  RSVR62 


RSVR62  subroutine  is  a simulation  of  a bootstrap  reservoir.  The  sub- 
routine can  accommodate  up  to  4 low  pressure  lines  along  with  the.  high 
pressure  (bootstrap)  line.  The  high  pressure  source  does  not  have  to  be 
part  of  the  low  pressure  system  and  can  be  completely  independent. 


TYPE  NO.  62  BOOTSTRAP  RESERVOIR 
FIGURE  6.62-1 


6.62-1 


6.62.1  Math  Model 


Section  1500 

The  steady  state  high  and  low  reservoir  pressures  are  determined  as 
follows . 

A sign  convention  is  established  such  that  flow  into  the  low  pressure 
end  is  positive.  A pseudo  leg  (see  Figure  6.62-2)  that  terminates  at  low 
pressure  node  N is  established.  The  pressure  at  the  external  end  of  this  leg 
is  set  as  the  average  of  the  pressure  at  node  N PN(N)  and  pressure  calculated 
for  node  N using  the  piston  area  ratio  times  pressure  at  node  M,  PMN  where: 

PMN  * PN(M)*DT(NAREAR)+DT(EXPRES) 

Any  difference  in  PMN  and  PN(N)  will  produce  flow  in  the  pseudo  leg  and  hence 
an  unbalanced  system.  As  LEGCAL  balances  the  flows  at  all  system  nodes,  the 
pseudo  leg  flow  is  forced  to  zero  which  in  turn  forces  PMN  and  PN(N)  pressures 
to  be  equal. 

(PMN  + PN(N))/2 

i 

V 


RSVR62  STEADY  STATE  ORGANIZATION 


6.62-2 


Section  3000 


The  high  pressure  line  impedance  may  be  expressed  in  terms  of  the  low 
pressure  impedances  through  an  easily  derived  expression. 

1)T (NZ1)  -Z  (L  (1)  ) *DT  (NARKAR)  **2 

Therefore  the  total  impedance  of  the  reservoir  volume  J.s  simply  the  sum  of 
DT(NZl)  and  the  impedances  of  the  lines  connected  to  the  low  pressure  side. 
Tlie  high  pressure  characteristic  is  also  modified  t.o  a low  pressure 
characteristic . 

CL1"C(L1)  *DT  (N  AREAR)  +1)T  ( EXPRliS  ) 

Since  there  is  no  flow  between  the  high  and  low  pressure  areas,  volume 
and  pressure  is,' 

DT(P2)-CN/DT(NGZ) 

where; 

CN-CL1/DT(NZ1)+C(L(J))/Z(L(1)) 

The  net  flow  into  or  out  of  the  reservoir  is  then; 

Q1-(1)T(P2)-CL1)  /DT(NZ1 ) 

The  flow  out  the  high  pressure  side  is  simply; 

Q ( U ) - -q 1 *UT (NARKAR) 
and  the  pressure  is; 

P(Ll)-C(Ll)-q(Ll)*Z(l,l) 

Tne  net  change  in  flow  volume  into  or  out:  of  volume  1 is  computed  and  a test 
is  made  to  determine  if  the  piston  is  at  a limit  condition. 

The  flow  at  each  active  connection  is  then  calculated  using  the 
algebraic  equation: 


6.62-3 


|: 

i 


Q(LI)-(C(LI)-P(LI))/Z(LI) 


where 


Q(LI)  a fluid  flow 

P(LI)  m fluid  pressure 

C(LI)  m characteristic 

2(LI)  m characteristic  impedance 

LI  “ connection  nunher 


6.62.2  Assumptions 


The  seal  friction  is  zero. 


6.62.3  Computation  Methods 


Section  1000 


Variables  DT(IQV),  M'(M(NIQV) , UT(MAXIQV) , DT(QNKT)  are  initialized. 

The  plator  force  generated  by  atmospheric  pressure  is  calculated  using; 

DT(£XPRHS)«A'n,KKS*(ll(AHHAZ)  -D(AKEA1 ) ) /D(ARKAZ) 

Section  1500 

Tills  section  sums  the  flows  into  and/or  out  of  the  low  pressure  chamber 
as  the  entry  fs  called  for  each  active  connection.  It  also  determines  over- 
board flow  at  the  high  pressure  node  (M)  and  low  pressure,  node  (N)  . 

Section  2000 

UT(QNET)  is  Initialized  and  the  volume  1 Impedance  ts  computed. 


G.62-4 


USVR62  STEADY  STATE  FLOW  U1ACRAM 
Figure  6,62-3 


0.62-5 


Section  3000 


The  characteristics  are  then  calculated  and  subsequently  used  to  calculate 
the  flows. 

CL1“CL1/DT(NZ1)+C (LCI) ) /Z(LCI)) 

Ql" (DT(PZ) -CL1) /DT(NZl) 

Note:  These  equations  are  used  to  calculate  high  pressure  flow. 

Next,  the  flow  is  summed  using  the  new  flows. 

Tests  are  then  performed  to  determine  piston  position  and  direction  of 
travel.  If  the  pfston  is  on  a stop  and  the  motion  is  in  the  direction  of  the 
stop,  velocity  is  set  to  zero. 

Computations  are  then  performed  to  determine  the  appropriate  pressures 
and  flows.  The  net  flow,  DT(QNET)  is  then  updated  for  the  next  time  step. 

6.62.4  Approximations 

The  elasticity  of  the  reservoir  walls  and  the  resulting  change  in 
volume  for  any  pLstou  movement  is  ignored  as  well  as  the  compressibility 
effects  of  the  oil. 

6.62.5  Limitations 

1.  RSVK62  is  limited  to  four  low  pressure  connection  and  one  high 
pressure  connection. 
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6.62.6  Variable  Names 


Variable 

Description 

Dimension 

D(AREAl) 

Low  Pressure  Piston  Area 

IN**2 

D(AKliA2) 

High  Pressure  Piston  Area 

IN**2 

CL1 

High  Pressure  Characteristic 

PS  I 

CN 

Characteristic  of  Low  Pressure  Connection 

PS1 

UT(liXPRKS) 

Atmospheric  Pressure  Contribution  to 
Piston 

PS1 

DT(IQV) 

Integral  of  Flow  In  Volume  1 

CIS 

DT(MAXIQV) 

Integral  of  Flow  in  Volume  1 at  Maximum 
Piston  Stroke 

CIS 

DT(MINIQU) 

Integral  of  Flow  in  Volume  1 at  Minimum 
Piston  Stroke 

CIS 

DT(NAUEAK) 

Piston  Area  Ratio 

— 

NCI 

Number  of  Connections 

— 

DT(NGZ) 

Conductance  of  Volume  1 

CIS/PS 

l)T(NZ'I) 

Equivalent  Volume  1 Impedance  of  the 
High  Pressure  Volume 

VS1 

CIS* 

DT(QNliT) 

Net  Flow  in  Volume  1 

CIS 

D( STROKE) 

Maximum  Piston  Stroke 

IN 

U(VULl) 

Reservoir  Oil  Volume 

IN**3 

D(VOL2) 

Bootstrap  Oil  Volume 

1N**3 

o n o o ri 


6.62.7  Subroutine  Listing 


SUBROUTINE  RSVR62  ( P,  DT,  DO,  L) 

C****  REVISED  JANUARY  24,  1976  **** 

DOUBLE  PRECISION  DO 

COr'ji'lOM  1'JTLLPL,  MTOLPL,  I PT,  I POINT,  NPTS  , INEL,  KUEL,  MTOPL,  MLPLT(  61,3)  , 

1 ?QLEG(  9 0,12)  , LCS(  90,10)  ,ILEG(  1400)  , PN( 90)  ,0N(90)  ,PEX(90) 
C0fl/i0M/3UU/?ARf-i(  150,9)  , P. i ( 1500)  , Oil (1500)  , ?{  300)  , Q(  300)  ,C(  300) 

1 ,  Z ( 300) ,RUO( 20) ,520RH0( 20) ,VISC( 20) ,3ULK( 20) ,TLwP( 20) ,PVAP( 20) 

2,  ATPRES,?, CELT, TP INAL, PLTDLL, PI, TITLE ( 20) , LLGN , ICON 

3,  r<TE.iP(  99)  , L3TART(  150)  ,KLPT(  150)  , LTYPE(  99 ) , KC(  90  ) , INX,  I M2 

4,  INV,  ISTLP,iiLINE,  NLL,  IND,  IfcMTR,  fl  K L I N £ , E L , .-i  N LEG , A N MODE,  i J ? LOT 

5 , i'lMLPTG , wOS 

OI.IL'.NSION  D { 6 ) , DT ( 1 0 ) ,00(1)  , L ( 7 ) 

INTEGE  R AREA1 , AREA  2 , VOL1 , VOL2 , STROKE , OTJLT , LX  PR  ES  ,?2,  DU.-. 

DATA  A RE A 1/1/ , AREA 2/ 2/ , VOL1/ 3/ , VOL2/4/ , STROKE/ 5/ , I M POS/6/ 

1 , ON ET/1/ , LXPRES/ 2/ , . i I N IOV/3/ 

2 , ..JA X 1 0 V/ 4/  , I NV/ 5/,  U AR t, A */ 6/ , N Z 1/ 7/ , Nl C3 / 0/ , ? 2/ 9 / , O U.  i/ 1 0/ 

IF(  IiiJJTR)  1000,2000,3000 

1000  CONTINUE 

IF(INEL.NL.0)GO  TO  1500 

QT( I0V) =( D( INPOS) *D( ARLA2 ) +D( VOL2) )*2.0/OELT 
0T  ( ci  I N I n v ) - 0 ( VO  L 2 ) * 2 . 0/  D t LT 

DT ( .NAY I “ v)  =D(  STROKE  ) *D(  AREA 2 ) *2 . 0/DELT+D? ( ZiIMIvV) 

L(  7 ) = 0 

UT  ( ON  bT) =0.0 

DT  ( N A R 2 A R ) = D ( A i<  E A 1 ) / O ( A R E A 2 ) 

DT  ( L X P R E S)  =AT?RLS*  ( U(  A R E A 2 ) - O ( A A i.'Al)  )/D(  A R E A 2 ) 

RETURN 


**** ‘STEADY  STATE  SLCTIO'T***** 
1500  CONTINUE 


i;  IS  THE  OOCrSTR A?  MODE,  N IS 
L(7)*L(7)+1 
LCS( INEL, 7 ) =5 
OA=PDLhO( INEL, 1) 
rp.=  ?OLLG(  I.-IBL,  2) 

IF(  KNEL.NI:  . 1)  GO  TC  1600 
;1=LCS(  IUi:L,  3) 

IF(  Iw'C.NL.  1)  GO  TO  1300 
w = LC3( IrtbL,  2) 

TO  TO  1900 
1600  OR=OA*DS 

N=LCS(I NLL»  3) 

I F ( INX. H iZ.  1 ) OO  TO  1700 
0R=-DR 

N=LCS( INLL, 2) 

1700  DT(0MLT)=DT( ?NLT)+OR 
1300  I P ( L ( 7 ) . N E . MC ( 1 1 1 D ) ) RETURN 
IP(N.  EO..-0  wRITc(  6, 1900) 


Hu 


LOW  PaLoSEI’E  NODE 
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6.62.7  (Continued) 


L(7)=0 

DT(WZ1)*DT(QNET) 

IF(PM(M)  .LO.  0.0)  PN(M)=3000. 

IF ( Pf-I ( ti ) .CO.  0. 0)  PN(N)=?N(r,)  * DT  ( H AREA?. ) + OT  ( £ X ?R  L3 ) 

Pr I N= ?M  ( w ) * DT { N ARE.AR)+DT(  EXPRLS  ) 

QN  ( M ) = ( ( PtiM+PN (H)  ) * 20.  ) /?.. -DT( ONET) 

ON ( A ) =UT( ONET) * DT ( SA REAR ) 

DT(P2)=PM(M) 

PL  X ( N ) = 2 0 . 

OT( QNST) =0.0 

1900  POPuiAT(5X,  45HRSVR62  REQUIRES  TWO  MOOES  FOR  BOOTSTRAP 
RETURN 

2000  CONTINUE 

DT(  ONET) = OT ( NZ  1 ) 

DT(MZ 1 ) *2 ( L( 1 ) ) * DT ( U A R EAR) **  2 
OT(MGZ)=1.9/OT(NZ1) 

MCI=NC(  I'-ID) 

DO  2100  1=2, MCI 

2100  OT(  MGZ  ) »DT( N3Z ) +1 . 0/Z  ( L(  I ) ) 

RETURN 

3O00  CONTI JUL 


31O0 


:ICI  = 0C(  IND) 

L1=L( 1) 

CL1=C(  LI ) *DT(  NAP.LAP ) + 0?(  LX  PRES ) 
C!1=CL1/0T(  MZ 1) 

DO  3100  1=2 , NCI 
C N=C  N +C  ( L ( I ) ) / Z ( L { I ) ) 

DT ( P 2 ) =C  N/OT ( MGZ ) 

0 1 = ( DT ( P 2 ) -C  L 1 ) / DT ( *Z 1 ) 

0 ( L 1 ) = “0 1 * DT ( M/A  RL  A E ) 

P( Cl ) =C ( Ll ) -Q( LI ) * Z ( LI ) 

DT ( I OV )=DT( I DV)+DT( (T;L?) +0 1 
CALL  XLI.-.IT(  0?(  IOV)  , 01 , CM,  DT(  ,il 

1 ■?(  CM . ED.  0.  0.  A N D.  01.  N1.  .0.0)  G 0 


\TI OV)  , DT ( 
TO  3500 


C!J=0. 0 
Zli=0 . 0 

DO  3400  1=2 , MCI 


LI=L( I) 

ZM=ZM+1 . 0/2 ( LI ) 

3 4 00  C.-:=CN+C(  LI)/Z(  LI) 
ot ( P2)=CM/s:-: 
•?(L1)=C(L1) 

0!(  LI)  = 0.0 
3500  CONTI MUL 

DO  3500  7=2, NCI 


L I = L ( I ) 

P( LI ) =DT( ?2 ) 

3500  0(LI)={C(LI)-?( LI) )/Z( LI) 
DT ( OMLT) =01 

DT ( D'J.-j)  =DT(  IOV)  * CELT/ 2. 


RETURN 

END 


li.AXI' 


V)  ) 


FLO' 
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6.71  SUBROUTINE  ACUM71 

Subroutine  ACUM71  models  a simple  gas  charged  piston  type  accumulator  that 
can  be  used  as  a system  accumulator  or  as  a source  of  supply  for  transient  sim- 
ulations . 

When  used  as  a system  accumulator,  the  initial  volume  of  oil  in  the 
accumulator  is  determined  by  the  steady  state  pressure. 

When  used  as  a source  of  supply  a constant  pressure  node  must  be  used 
to  determine  the  initial  volume  of  oil  in  the  accumulator. 

Two  connections  are  provided,  both  of  which  are  assumed  to  be  at  the 
same  pressure.  When  a single  connection  is  used,  the  other  is  blanked  off 
automatically. 

Since  it  is  basically  a passive  device,  its  response  is  entirely 
dependent  on  line  flow  and  pressure  changes. 

No  attempt  has  been  made  to  include  the  true  gas  dynamics  which 
involve  not  only  a varying  gas  constant,  but  also  the  heat  transfer  charac- 
teristics between  the  gas  and  accumulator  walls.  Figure  6.71-1  shows  a 
typical  accumulator  layout. 


PG 

Gas 

T5: 

1 ns  : 

■Connection  No.  1 


FIGURE  6.71-1 

TYPE  NO.  71  FREE  PISTON  ACCUMULATOR 
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6.71  Math  Model 


The  AGUM71  model  calculates  transient  pressures  and  flows  based  on 
three  different  conditions  within  the  accumulator. 

The  calculation  of  transient  pressures  and  flows  in  the  ACUM71  model 
depends  upon  whether  the  accumulator  is  empty,  full  or  within  the  working 
range. 

Conductances  are  calculated  for  the  lines  connected  to  the  accumulator 
and  volume  of  oil  in  the  accumulator. 

Gline  - 1/ Z (LI)  + 1/2<L2) 

Gvol  “ VOLO/ (BULK*DELT) 

where, 

Gnne  is  the  conductance  of  the  lines  to  the  accumulator, 

Gvo^  is  the  conductance  of  the  accumulator  oil  volume, 

Z is  the  impedance  of  the  line, 

BULK  is  the  bulk  modulus  of  the  oil, 

VOLO  is  the  volume  of  the  oil, 

DELT  is  the  calculation  time  step. 

If  the  accumulator  is  empty  the  pressure  of  the  oil  in  the.  accumulator 
is  given  by: 

PO  = (Q1  + Q2)/(Gline) 
where  , 

PO  is  the  pressure  of  the  oil  in  the  accumulator, 

Ql  and  Q2  are  the  flows  into  connections  1 and  2 respectively. 
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It  the  accumulator  is  full  the  pressure  of'  the  oil  in  t:he  accumulator 
is  given  by: 

VO  = (Ql+Q2+l>OA/Gvol)/(Gilue  -KJvol) 

where , 

POA  is  equal  to  the  current  pressure  of  the  oil  in  the  accumulator. 

If  the  accumulator  is  within  its  working  range  the  change  in  the  gas 
pressure  is, 

UPC  « (l*G*  (t)14Q2)  / (MAVOLG-TVOLO  + M1VOLO) 

where , 

l’I’G  Is  the  rate  of  change  o 1 the  gns  pressure, 

PG  is  the.  gas  pressure, 

MAVOLG  is  the  maximum  gas  volume, 

TVOLO  is  tin'  current  oil  volume, 

MIVOLO  is  the  inJnLmum  oil  volume, 

Thu  pressure  of  the  gas  is  given  by 
PG  » PGi  (DPGS+Dl’O) *l)kl,T/ 2 

where, 

DPGb  is  the  rate  ui  change  ol  the  gas  pressure  calculated  in  the 
previous  I line  step.  The  t lows  and  pressures  at  the  connections  are  then 
calculated  using  PO. 

P (LI)  = PO 
Q (hi)  (t'.-PO)  / 2 

where, 

P is  the  pressure  at  the  connection, 

()  is  the  flow  at.  the  connection, 

G is  the  characteristic  line  pressure, 

X,  Is  the  characteristic  line  impedance. 
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6.71.2  Assumptions 


The  true  gas  dynamics  and  the  frictional  and  inertial  effects  of  the 
piston  have  been  ignored  in  this  simulation  to  avoid  complicating  what  is 
essentially  a simple  component  model.  Entry  and  exit  pressure  drops  have  also 
been  ignored. 

6.71.3  Computation 
SECTION  1000 

The  precharge  pressure,  iuputed  for  100°F,  is  corrected  for  the  working 
pressure  ol  the  fluid  using  the  ideal  gas  formula. 

DT  (P  RE  SI’S)  = D(l,lUiSl,)*(TEMP(KTEMP(lNb))+460.)/520 
SECTION  1500 

The  pressure  of  the  oil  in  the  accumulator,  DT(PO),  is  set  equal  to 
the  upstream  pressure  of  the  leg. 

DT(P0)=>  PQLKC;(1NEL,  11) 

SECTION  2000 

The  conductance  of  the  two  lines  is  calculated. 

DT(NZ)  = 1.0/Z(L(1))+L.0(Z(L(2>) 

The  steady  state  volume  of  oil  in  the  accumulator  is  then  calculated. 

UT(IVOLO)  = D(M1V0L0)  + (1)(MAV0LG)-  (DT  (PRESPS)  *D  (MAV01.G)  ) / DT (PG) 

If  the  steady  state  oil  pressure  is  less  than  the  precharge  pressure,  then 
the  steady  stale  volume  is  set  equal  to  the  minimum  oil  volume  and  the  gas 
pressure,  DT  (PG) , is  set  equal  to  the  precharge  pressure. 

The  impedance  of  the  maximum  oil  volume  is  then  calculated  and,  after 
conversion  to  a conductance,  is  summed  with  the  line  conductances. 

IF (DT(PRESPS) . LT. DT (PC) )G0  TO  2100 

DT(TVOLO)  = D(MiVOLO) 

DT (PC)  - DT(PRESrS) 

2100  DT(KBULK)  - BULK  (KTEMP  ( 1ND)  ) *DT (NDELT)  /D(MAVOJLU) 

DT(NVZ)  = UT(NZ)+1. 0/DT (KBULK) 
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SECTION  3000 


The  net  flow  into  the  accumulator  is  calculated  using  the  oil  pressure 
calculated  in  the  previous  time  step.  The  volume  of  oil  in  the  accumulator 
is  then  calculated. 

Q(L1)  - (C (LI) -DT (PO) ) /Z (LI) 

Q(L2)  = (C(L2)-DT(PO))/Z(L2) 

TQV  = Q(L1)+Q(L2) 

TVOLO  = DT ( TVOLO )+( DT ( IQ V ) +TQV ) *DT ( NDELT ) 

A test  is  made  to  determine  if  the  volume,  of  oil  in  the  accumulator  is 
less  than  the  minimum  oil  volume,  D(MIVOLO) , greater  than  the  maximum  oil 
volume,  D(MAVOLO),  or  within  the  working  range  of  the  accumulator. 

If  the  volume  is  less  than  the  minimum  oil  volume  the  volume  is  set 
equal  to  D(K1V0L0) , the  change  in  the  gas  pressure  and  the  net  oil  flow  are 
set  to  zero  and  the  pressure  of  the  oil  is  calculated. 

TVOLO  - D(MIVOLO) 

TDPG  =0.0 

TQV  =0.0 

DT (PO)  = (C(L1)/Z(L1)+C(L2))/DT(NZ) 

If  the  volume  of  oil  is  greater  than  the  maximum  oil  volume  the  volume 
is  set  equal  to  D(MAVOLO) , the  change  in  oil  pnassure  and  volume  are  set  to 
zero,  and  the  oil  pressure  is  calculated. 

DT  (PO)  = C(L1)/Z(L1)+C(L2)/Z(L2)+DT(P0)/DT(K13ULK) 

DT  (PO)  = DT (PO ) / DT ( N VZ ) 

If  the  volume  of  oil  is  within  the  working  rnage  of  the  accumulator  the 
change  in  gas  pressure  due  to  the  change  in  oil  volume  is  calculated,  a new 
gas  pressure  is  calculated  and  the  oil  pressure  is  set  equal  to  the  gas 
pressure. 

TDPG  = DT(PG)*TQV/(D(MAVOLG)-TVOLO+D(M1VOLO)) 

DT(PG)  = DT(?G)+(DT(DPG)+TDPG)*DT (NDELT) 

3250  DT (P0)  = DT(PG) 
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The  pressure  and  flows  at  the  accumulator  connections  are  then  calculated 
using  the  oil  pressure  calculated  above. 

6.71.4  Approximations 

Leaving  out  static  friction  from  the  simulation  gives  poor  low  amplitude 
results  but  helps  the  simulation  by  avoiding  the  nonlinear  effects.  Leaving 
out  the  inertial  effects  of  the  piston  may  reduce  the  accuracy  of  the  results 
at  very  high  frequencies  but  reduces  the  cost  of  using  the  accumulator  sub- 
routine. 

6.71.5  Limitations 

The  current  model  can  be  used  for  rapid  small  amplitude  discharge 
transients  where  heat  transfer  is  not  a problem. 

For  very  small  amplitudes  where,  frictional  effects  become  significant, 
or  very  high  frequencies  where  inertia  effects  may  become  significant  this 
model  should  not  be  used. 
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6.71.6  Variable  Names 


Name 

Description 

Dimensions 

DT(DPC) 

Kate  of  elwnge  of  gau  pressure 

PS1/ sec 

DT(DPO) 

Rate  ot  change  ol  oil  pressure 

PSI/sec 

DT(IQV) 

Rate  oi  change  ol  oil  volume 

CIS 

DT(IVOLO) 

Volume  of  oil  in  accumulator 

in^ 

DT(KHULK) 

Conductance  ol  oil  volume 

C1S/PS1 

LI 

Dummy  variable 

- 

L.2 

Dummy  variable 

- 

D(MAVOLG) 

Maximum  gas  volume 

in' 

D(MAVOLG) 

Maximum  oil  volume 

m3 

D(MIVOLG) 

Minimum  gas  volume 

in3 

DT(NDELT) 

Calculation  time  step 

Stic 

DT(NVZ) 

Sum  oi'  Hue  and  volume  conductance 

cis/rsi 

DT(NX) 

Sum  oi  line  conductances 

ClS/l'Sl 

Ul' (l'C) 

Gas  pressure 

I’Sl 

DT(PO) 

Oil  pressure 

PS1 

D(PRESP) 

Precharge  gas  pressure 

PS1 

DT(l’RKSPS) 

Corrected  prcehurge  gas  pressure 

l’Sl 

TDPG 

Temporary  rate  oi  change,  of  gas  pressure 

PSl/sec 

TQV 

Temporary  value  for  rate  of  change  oi 
oil  volume 

Ci  L> 

TVOLO 

Temporary  volume  ot  oil 

in^ 
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6.71.7  Subroutine  Listing 


SUBROUTINE  AC UN 71  ( Of  DT, DO, L) 

****  REVISED  OLCLMBLR  5,  1975  **** 

A SIrfPLL  ACCUMULATOR  MODEL  WHICH  NEGLECTS  PISTON  FRICTION 
PISTON  MASS,  AMD  THE  TRUE  GAS  DYNAMICS 
DOUBLE  PRECISION  DO 

COMMON  WTE  L P L , NTOL-  PL , I PT , I POI  NT , N PTS , I I'LL , KN  E L , NTOPL,  N LPLT(  61,3), 
1 POLEG ( 90, 12) , LCS ( 9 0 , 1 0 ) , I LEG ( 1400) , ?N ( 9 0 ) , QN ( 9 0 ) 

COt  i i lOl'J/  3 U 0/  ? A It  i ( 150,9)  , Pi  i { 1500)  , Q£*i  { 1500)  , P(  300)  ,0(  300), C(  300) 

1,3(  3 OP ) , R HO(  20)  ,S20RiTQ(  20)  ,VISC(  20)  ,3ULK( 20)  ,Tii.iP(  20)  ,PV.AP(  20) 

2 ,  AT PR ES , T, CELT , T FINAL, PLTOEL, PI , TITLE ( 20 ) , LCGN , ICON 

3,  DTE:  jP(  09  ) , LSTART(  150)  ,ML?T(150)  , LTYPE ( 9 9 ) , NC ( 9 9 ) ,I.«,INZ 

4,  INV,  ISTl,?,  “.LINE  , NlL,  I ND,  I EM  TP,  MULI  ML , iiMEL,  liNLEG , .'iMRODE  , .-iNV'LOT 

5 , i iMLPTS , . iDS 

DIi i FUSION  DD(  1 ) , L(  2 ) , D(  5 ) , D?(  1 0 ) 

INTEGER  PR ESP, ?RLS PS , DPO, PO, DPG, PG 

DATA  ..IVOLO/1/ , ,.A  VDLO/2/ , :iIVCLG/3/ , PR  ESP/ 4/ , 

1 ?R i.S PS/ 1/ , ODE LT/ 2/ , D PO/ 3/  , PC/ 4/  , DPG/ 5/ , PG/ 6/ , 

2 I G 7/  7 / , I VO  LO/  0 / , N 7.  / P / , X ■ V J L ’’/ 1 0/ , N VS/ 11/ 

I'-(  IENTR)  1009,2000,3000 

1000  CONTINUE 

I F ( 1 : 3 E L . N b • 0 ) GO  TO  1 5 0 n 

C IDEAL  GAS  RELATIONSHIP  IS  USED  TO  A OS  US  T PREC LARGE  PRbbS 

OT(  PHiiSPS  ) = 0(  PRLSP)  *(Tb.-iP(  RTilnP(  INC)  )+460.  )/520. 

RETURN 


1300 

IF  ( ViJr. L. 

ED.  2) 

GO  TO 

1600 

DT ( I TV ) = 

v»  r*.  r • r- 

3r  IjTm; 

( I \i  L L | 

r 1)*P^LEG( I 

O? ( P0)=? 

0LEG( INLL, 11) 

RETURN 

10O9 

DT  ( D PC  ) = 

PDLEC 

( TILL) 

ill) 

RETURN 

?.n09  COUfl'DJE 

D T ( M 2 ) = 1 . 0/ Z ( L ( 1 ) ) + 1 . 0/  Z { L(  2)  ) 

I p ( L:C  ( I rJD ) • 1 ) CO  TO  2 050 

DT( I^V) =0. 0 

DT ( PO ) = ( DT ( PO) +DT (DPO) ) / 2 . 0 
20  50  DT ( D PO ) = 0 . 0 
DT( D °G)  = 0 . 0 
DT  ( R DE  LT ) = 0 . 5 * D t,  L " 

DT( :30)  = 0?( PO) 

D(  i.AVOLG)  = D(  ,-IAVOLO) -n(  .I VOLO)  +D( .il VOLG) 

DT  ( I VO  LO ) = D ( :i  I VO  LO ) + ( D ( ,i  A VO  LG ) - ( DT  ( PR  * S PS  ) * D ( , . A VC  LG ) ) / DT  ( PC ) ) 
I ( DT  ( PR  l.S  93  ) . LT . DT  ( PG ) ) GO  TO  21 0 0 
DT(  IVOLO)=D(..IVOLO) 

DT  ( ? G ) = DT  ( L :>  Pc  ) 

2190  DT  ( [•'  A U L G ) = :.’>  U LT  ( RT  L.  i ? ( IN  D ) ) * DT  ( rl  DE  LT ) / D ( . i A VO  LO ) 

DT ( NVZ ) = DT ( \ Z ) +1 . 0/DT( K3ULD ) 

RLTUF r1 

30 on  CONTI vUC 

L1=L( 1) 

L2=L(  2 ) 
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(Continued) 


0(L1)=(C(L1)-D?( PO) )/Z(Ll) 

0 ( L 2 ) = ( C ( L 2 ) - DT ( PO ) )/Z(L2) 

TC V=  ? ( L 1 ) + 0 ( L 2 ) 

TVOLO=DT(  I VGLO) F ( DT(  I O'v)  +TQV)  * DT  ( K D£  LT ) 

IF(  TVOLO.GT.  O(.iIVOLO)  . AMD.  OT(  i?0)  .Gb.DT(  PC)  ) 30  TO  3100 
r 

C TUI-  ACCUMULATOR  IS  LUPTY 

TVOLO=D(  .iI  VOLO) 

TOP3=0. 0 
T0V=0. 0 

0 F ( PO ) = ( C ( L 1 ) / 2 ( L 1 ) +C ( L 2 ) / Z ( L 2 ) )/DT(RZ) 

I ? ( DT ( PO ) . Lit- . DT ( PC)  ) GO  TO  3 300 
X VO  LO=D  ( •.  I VO  LO ) + . 0 0 1 
GO  TO  3250 

310  0 I r ( TWO  LO. LT. 0( ; i A VO LO ) ) GO  TO  3 200 


C 

c 

3?."0 


3 250 
3 3 00 


TI:L  ACCUMULATOR  Hi  FULL 
TVOLC=0( OAVOLO) 

TOV=0. 0 
TOPC=0. n 

07  ( PO ) = C ( L l ) / 3 ( L 1 ) +C  ( L 2 ) / Z ( L 2 ) +0?  ( PO  )/DT(  K 3 0 L‘  I ) 
D.?(  PO)=OT(  PO)/DT(TJVS) 

I ? ( DT ( PO ) . G7 . 07 ( PG) ) GO  TO  3300 
T VO  LO-  OT  ( . i A VO  LO ) - . 0 0 1 
GO  TO  3250 


Till;  ACCUriULA  POL  13  wITCIri  IT'o  -vOGTIGG  T<Ai«GL 


TDPC=0T(  P5)  *?W(  A(  mAVOLG) -TVOL'J+0{  31  VOLO)  ) 
OT ( PG ) = C ? ( ) + ( OT ( 0 PG ) +T O ?3 ) * DT ( 3 Ob LT ) 
CT(i?C)=OT(  PO) 

P(  L 1 ) = OT ( PO) 

3(Ll)=(C(Ll)-OT(PO))/Z(Ll) 

0( L2) = ( C( L2 ) -OT( ?0) ) n ( L2 } 

P(  L 2 ) = DT ( PO) 

DT{  D PO ) = 0 ( L 1 ) + 0 ( L2 ) 

PT(  IOV)  =70 v 
DT ( I VC LO ) =T VO  LO 
07  ( OPG)  = T0'?G 
RLTUrtN 


h 3 0 
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b . 8 1 SUBROUTINE  F1LT81. 

FILTH 1 is  a simulation  ui  an  inline,  non-bypass  i liter  with  no 
moving  parts,  using  standard  e loanable  elements. 


- Gourmet  ion  No  1 


-Connection  No.  2 


Inlet  Vo'ume 
(Include;,  Inlet 
Passage  of  Component)  ■ 


Llimiunt  • 


i 


tx  it  Volume 
(Includes  klonumt 
Volume) 


FIGURE  6.81-1 

TYPE  WO.  81  F-4  TYPE  IN-LINE  FILTER 


Cl  <►- 


PBL 


C3  > D(VOLINJ 


G4  SDi'VOLEX) 


a a a err hr 

pQ  y v ^ pjr 
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6.81.1  Math  Modal 


Subroutine  l'ILl'81  uses  a simple  model  to  describe  the  pressure  and 

1 low  characteristics  oi  a filter  under  transient  conditions.  FILT81 

Diagram,  figure  6.81.2,  schematically  describes  the  model  where  PB  and  PE, 

! 

the  bowl  and  element  pressures,  are  to  be  determined.  The  past  values 
of  the  bowl  and  element  pressures,  PUL  and  PEL,  are  shown  at  the  ends 
of  pseudo  passages  along  with  their  conductances  respectively. 

The  conductances  Cl  and  C2  are  calculated  using  the  equation 
Sol  “ VOL/(UlJLK*DELT) 

where 

Cvu]  ” eonductanee 

BULK  = fluid  bulk  modulus 

VOL  = volume  of  oil  in  bowl  or  element  section 

DEBT  ~ time  step  of  program 

The  conductances  of  the  lines  connected  to  the  filter  is  simply 
the  reeiprooal  of  the  line  impedance 

fillne  “ l/zlino 

where 

/,  ii,u,  - impedance  oi  the  line. 

With  all  the  conductances  calculated,  flows  are  summed  about  PB  and  PH 
resulting,  in  the  lol  lowing  equations. 

(Cl- l’B)*G1  + (PBL-PB)*G}  - QE  - 0 6.81.1 

IJE  + (PEL— PE) *CA  - (1’E-C2)*(’.2  = 0 6.81.2 

where  Cl  & 02  the  line  characteristic  pressure 
(JK  the  flow  across  the  element 
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The  pressure  drop  between  PB  and  PE  is 
PB  - PK  “ QE2*K2  -I-  QE*K1 

where  Kl  is  the  linear  pressure  drop  coefficient 
K2  is  the  q2  pressure  drop  coefficient 

This  equation  is  solved  for  QE  in  terras  of  PB  and  PK  using  the  quadratic 

formula.  The  result  is  substituted  into  equations  6.81.1  and  6.81.2.  The 

substitution  for  QE  rusu'ts  in  a set  of  two  equations  and  two  unknowns, 

PB  and  PE.  The  equations  are  solved  simultaneously  to  yive  PB  and  PE. 

The  inlet  and  outlet  flows,  Q1  and  Q2,  are  then  calculated. 

Q1  = (01  - PB)/Z1 

Q2  = (C2  - l’K)  /Z2 

6.81.2  Assumptions  - Not  applicable. 

6.81.3  Computai  tonal  Methods 
SECTION  1000 

l’seudo  conductances  for  the  bowl  and  element  sections  are  calculated 

and  the  filter  element  constant , D(OONSKK) , is  adjusted  for  fluid  other 

than  Mil, -11-6606  and/or  temperature  other  than  100°V. 

D (VOLIN)  - D(VOI.IN)  /l)ELT /BULK (LI) 

U(VOLEX)  = I)  ( V01  ,EX)  /BELT  / BULK  (LI ) 

D(CONSKI.)  = VlSCO-1  )*RHO(Ll  ) / ( . 028*8 , 2E-  5)*D  (CONSEL) 

SECTION  13 00 

2 

The  leg  constants  lor  O and  Q are  updated  and  the  outlet  pressure 
is  calculated  and  stored.  The  bowl  and  element  pressures,  l)T(PBL)  and 
DT(l’EL),  are  Initialized. 

SECTION  2000 

Pseudo  conductances  1>T(01H),  l)T(C.OllT)  and  UT(OTOT)  are 
calculated  for  use  In  the  transient  calculation  section. 


DT(GIM)  = 1.0/Z(L(1))  + D (VOLIN) 

DT (GOUT)  - 1.0/Z(L(2))  + D(VOLEX) 

DT(GTOT)  » (DT (GIN)+DT (GOUT) / (DT/GIN)*DT (GOUT) ) 
DT(GTOT)  * DT(GTOT)  + D(CONSEL) 

SECTION  3000 


The  values  of  DT(PBL)  and  DT(PEL)  are  calcu Laced. 

DPIN  - (C(L1)/Z(L1)  + D (VOLIN) *DT0?8L))/DT (GIN) 

DP OUT  - (C(L2)/Z(L2)  + D(VOLEX)*DT (PEL) )/DT (GOUT) 
QE  = SQRT (DT (GTOT) **2 .+4 . *D (CONE2) *A3S (DPTN-DPOUT) 
QE  - ( (QE-DT(GTOT) ) / (2 . *D (CONE2) ) .DPIN-DPOUT) 
DT(PBL)  - DPIN  - QE/DT (GIN) 

DT(PKZ)  » DPOUT  + QE/DT (GOUT) 


The  pressures  and  flows  at  each  of  the  connections  are  then  calculated 


using  DT(PBL)  and  DT (PEL) 

Q (LI)  = (C (LI)  - DT(PBL))/Z(L1) 
P (LI)  t.  DT  (PEL) 

Q(L2)  = (C(L2)  - DT (PEL) /Z (L2) 
P(L2)  » DT (PEL) 


6.81.4  Approximations 


Non-linear  pressure  drop  effects  are  assumed  to  be  proportional 
2 

to  the  Q term. 

6.81.5  Limitations  - Not  applicable. 

6.81.6  Variable  Names 


Variable 

Description 

Units 

D(C0NE2) 

element  coefficient 

PSI/CIS' 

D(CONSEL) 

Q element  coefficient 

PSI/CIS 

DPIN 

Intermediate  calculation 

— 

DPOUT 

Intermediate  calculation 

— 

DT (GIN) 

Sum  of  Inlet  Conductances 

C1S/PSI 

DT (GOUT ) 

Sum  of  Outlet  Conductances 

CIS/PS1 

DT(GTOT) 

Intermediate  Calculation 

— 

LI 

Dutnny  Variable 

— 
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L2 

Dummy  Variable 

DT(PBL) 

Bowl  Pressure 

PSI 

DT(PEL) 

Element  Pressure 

PSI 

QE 

Flow  Across  Element 

CIS 

TM3 

D(VOLEX) 

Exit  Volume 

IN 

n,3 

D (VOLIN) 

Inlet  Volume 

IN 
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6.81.7  Subroutine  Listing 

Si’!'  ROUT I J L F I LT 'll  ( 0 , DT , 00 , L ) 

C**  + * SLVISbi:  JAY  1,  1376  **** 

CO.-i.iOM  ;57t.LPL,\’TOL£»L,  I PT , I POIJT, -1PTS,  IHfcL,  XJKL,  KTG£>L,rlL«?LT(  61,3), 
1 pdlkG  ( 9 0 f 1 ? ) , LCS  { 9 0 , 1 j ) , I LEG  ( 1 4 00 ) , ?<:i  ( 9 0 ) , CW  (30) 

COr-i..OJ/30-V?6i<.-i(  150,0)  , P.-i ( 1500)  ,0.1(  1500)  , t>(  300)  , Q(  300)  ,C(  300) 

1, Z(  300)  ,R-.?0(  20)  , S 20RUQ(  20)  ,VIoC(  20)  ,BUL7(  20)  ,T1>..P(  20)  ,PVA?(  20) 

2,  \T?l<»iS,T,  CELT, TPIUAL,  PL7DCL,  ?I, TITLE ( 20)  , LEGS , ICOU 

3, KTt.t?{:)0),LSTART(150)  ,«LPT(  150)  , LTV  PL  { 9 9 ) , XC  (90)  , UX , IXZ 

4 , Ii'lV,  ISTLP, i!LIv.L,  ML.L,  1:40,  IENTH,  JJLI.XL , • ..JbL,  W4LLG, «S*40Db,  PLOT 
5,..'?L?TS,.-iT>3 

DI.iEWSIO.-l  D(  1)  ,OT(  1)  ,O0(  1)  ,L(  1) 

INTEGER  VOLIM,  v’OLE.X, CGNSEL,  PBL,  PEL, G'fOT,GI  J , GOUT, CCUh 2 
C****  n ARRAY  VARIABLES  **** 

DATA  VOLT'Vl/ , VO  LEX/ 7/ , COSSET,/?/,  COf!h.2/4/ 

C****  07  ARRAY  VARIABLES  **** 

DATA  PBL/1/ , PLL/ ?./ , G'P-DT/ 3/ , OI W , GOUT/  5/ 

I?( IhUTR)  1 000, 2000, 3 A 0 0 

c sect iom  moo  lstaalis ells  coustauts  vox  usl  is  future  calculation:' 

1 BOO  COUTI  JUt, 

IF  (ISLL.A’C.O)  GO  TO  1500 
C SET  COUSTAfTfrf  PO»  1ST  LG  RATIOS  OF  PRESSURES 
LI =X  7 :,..?( ISO) 

P(  VOLT \*)  =D(  VOLIN’) /DLLT/TULX(  LI ) 

7 ( VO LE  v ) = 0 { VO LE X ) / D t LT/ 3 U LX(  LI ) 

ADJUST  IS  PUTTED  CO’iJTAMTS  '-"On  FLUID  OT-il-P  TEAS  . 1 1 L— fi-5606  A JO/OP 

ti,..plratua-:s  ot;ur  t.-ia-i  mo  dec  f 

D(  COAS..L)  =VISC(L1 ) *r<tUj(  LI )/(  .020*3. 2L-5)  *D(  CODS  |,L) 

I r ( C ( COUS EL)  • LL- • 0 . 0 ) D(  CONSUL)  = . 0001 

LETUPS 

15  00  CO ST I SUL 

I E ( S i i L L—  2) 1510, 1510, 1510 
1510  '\A=?'.)Lt.G(  I 'if.  L,  1 ) 
o'S=?-?LbG(  I ILL,  2) 

*#>Lr/3(  IS-LL,  $)  = PCLlG(  I nEL,  6)  +D(  COCSeL) 

-?LEG(  ISEL,3)»?CLivC(  IULL,  3 ) + D{  COUi.2 ) 

FT  ( PEL)  = POL  EG  ( I ■ J r,  L , 1 1 ) 

DT ( PEL)  =r<T ( PDD-CA*  >: * ( 0 ( CO-MS L. L ) +-?A* D ( COrl b 2 ) ) 

P?LtG(  I.JkL,  11)«DT(  PEL) 

1510  P.ETUiC  1 
200-0  CO’TIUUE 

DT  ( G I ‘! ) = 1 . 0/  2 ( L ( 1)  )+•:•(  VDLI'T) 

D7 ( GOUT ) = 1 . o/ 7 ( L { 2 ) ) + D ( 70  LL  X ) 

D7(  GTOP)  = ( D?(  GI  -I ) + DT ( GOUT ) )/{  OT(v~.I '■)  *OT(GO-JT)  ) 

.07  ( GTOT ) = 07  ( CTD7 ) + D ( CO- J G L L) 

:U,?UEU 


SECT  3.0HO  CALCULATES  AX'?  sTOkLo  m-r^RUAL  AGO  COr-ULCTIO.;  TRESS'S 
A .’H  PLO..G 
3000  COST  I iUL 
L1  = U 1) 
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6. SI. 7 (Continued) 


L2=L( 2) 

0?I:s'*(C(Ll)/Z(  L.l)+D(  VOLIN ) *0T(  PBL)  )/OT(GIN) 
OPOUT=(  C{  L2)  /?.  ( L2 ) + D{  VOLbX)  * DT(  PLiL)  )/DT(CO»Jf ) 
01>i>QRT(  DT(GTOT)  **2.+4.*D(COwfc.2)  *A03(  DPI M-OPOUT)  ) 
Ot=oiG;\’(  (OL-OT(GTOT)  )'/ ( 2. *D( CO«L2)  ) , 0 PIN- 3 POUT) 

CT ( ?3 L ) = 0 PI rt-Ofc/OT ( GI M ) 

OT(  PUL) «D?C,JT+OL/DT  ( GOUT) 

'ML1)»(C(L1)-DT(  PSL)')/2(  Ll ) 

?(L1)»DT(P«3L) 

0(L2)-(C(L2)-DT(?liL)  )/S(L2) 

?( L2)»OT( PCL) 

RETMRM 

CUD 
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.82 

K 

roll 

illUlOl’ 
o In' 


liN  0 


6.82.1  Math  Model 


The  F1LT82  model  calculates  the  transient  pressure  and  flow  demands  cf  a 

three  element  filter  manifold  incorporating  a relief  valve.  Figure  6.82.2 

schematically  describes  the  filter  manifold  where  the  bowl  and  element 

pressures  of  each  filter.  l’B  and  PE,  are  to  be  detemrned.  The  past  valves 

of  the  bowl  and  element  pressures,  PBS  and  PES,  are  shown  at  the  ends  of 

pseudo  passages  along  with  their  conductances,  G.  The  conductance  of  the 

pseudo  passage  is  calculated  using  the  equation: 

G , - VOL,/  (BULK*DELT) 

Vol 

whe  re 

Gy  , = conductance  of  the  volume,  CIS/PSI, 

VOL  » volume,  IN3, 

HULK  *•  fluid  bulk  modulus,  PS I, 
l)ELT  ~ calculation  time  interval,  SEC. 

The  conductances  of  the  lines  connected  to  the  filter  manifold  is 

simply  the  reciprocal  of  the  line  impedance,  Z. 

G. , = 1/Z. . 

line  line 

wlie  re 

G, . = conductance  of  the  line,  CIS/PSI, 

line 

Z, . = impedance  of  the  line,  PSl/CIS, 

1 me 

Initially,  Lhc  relief  valve  is  assumed  to  be  closed  and  a solution 
technique  similar  to  that  used  in  F I L'1'8 1 is  used  to  solve  for  the  bowl  and 
element  pressures  of  each  filter. 

Alter  all  the  line  and  volume  conductances  have  been  calculated,  the 
(lows  are  summed  about  PB  and  PE  resulting  in  the  following  equations. 


VOLIN (3)  < Q( 9) 


PBS  £3) 

ZC5)  PBC5)  R5 
— V\A/ ” 


G(5) 


— wv- 


V0LIMC5)  S GOO 


GCIO)>  VOLE X (4-) 


PESC4) 

R6  \PE(6)  ZC6) 


A/W— 

GC6) 


GCia')  < V0LEXC6) 


PBSC5) 


PES(e') 


FILT82  DIAGRAM 

F l Gi U R E.  b-32-2 
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(C(1)-PB)*G(1)+(PBS-PB)*G(3)-QE=0  6.82,1 

QE+(PES-PE)*G(4)-(PE-C(2))*G(2)«0  6.82.2 

where 

C - the  line  characteristic  pressures 
QE  = the  flow  across  the  element. 

The  pressure  drop  between  PE  and  PE  is 
?B-PE=»QE2*R2+QE*R1  6.82.3 

where 

R1  = linear  pressure  drop  coefficient 
2 

R2  « Q pressure  drop  coefficient. 

Equation  6.82.3  is  solved  for  QE  in  terms  of  PB  and  PE  using  the 
quadratic  formula.  The  result  is  substituted  into  equations  6,82.1  and 
6.82.2.  The  substitution  for  QE  results  in  a set  of  two  equations  and  two 
unknowns,  PB  and  PE.  The  equations  are  solved  simultaneously  to  give  PB  and 
PE. 

After  the  bowl  and  element  pressures  for  each  filter  have  been  calculated 
a test  is  made  to  determine  if  the  relief  valve  is  open.  If  PE(6)-PB(1)  is 
'Less  than  the  relief  pressure,  the  relief  valve  is  closed  and  the  pressures 
end  flows  at  the  connections  to  the  filters  may  be  immediately  calculated. 

Q (N)=  (C-  (N)--PB(N)  )/2(N) 

P (N)=PB(N  1 

0 (M)« (C (M) -PE (M) ) /Z (M) 

P (M)=PE (M) 

where 

N = 1,  3 or  5 
M ~ 2,  4 or  6 
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It  l’E  (0 ) -V  15(1 ) is  greater  than  the  ic  i Let  pressure  the  relict  valve  is 
open  and  the  bowl  and  element  pressures  lot  the  supply  ana  return  111  tors  are. 
recalculated . 

An  equivalent  conductance,  Clip,  is  calculated  tor  the  Slow  across  the 
iilter  elements  ot  the  supply  and  return  fillets. 

GEQ(l)  - Qli(l)/  (l’B(l)— l’E(l)  ) 

GEQ  (2 ) - qK(3)/(PB(5)-l’K(6)) 

With  the  refiet  valve  open  there  Is  a flow  lrom  l’E(C)  to  1*11(1),  The 
liow  through  the  relief  valve  plus  all  other  flows  are  suinued  nlout  l'li(l), 

1*11(2.),  L’U(5)  and  l’E(6)  to  p,ive  the  tollowlng  equations. 

(c(i)-TU(i))*G(i)+(t*bS(i)-i*ii(i))*t;c/)+(i*t;(ti)-i*BU))*Giua 

- (i  u(i)  -ri:  (2) ) *ciiQ  < l)~o 

(1’1}(  l ) -l’H  (2  ) )*Gi;q  (1  H'(1*K,S  (2)  -I’ll  (2)  ) *G (8)  -(PE  (2)  -t:  (2)  )*G(2  )=l) 

(G  (5)  -1* B (5 ) ) *G  (5)+  (TBS  (b  ) -l’lt  (5 ) ) *G  (1 1 ) - (T 11  (5  ) -t'K(d)  ) *Gi:q (2  )-0 
(i’ll  (5  ) -Til  (h ) )*GUq  (2)4  (1*ES  (0)  -l‘K  ((. ) )«G  (12)- (I’M  (0  ) -I’ll  (1 ) ) *GRliL 

-(iu:(<>)  -c(0)  )*t;  (<>)-o 

This  results  in  a set  of  four  equations  with  four  unknowns,  l’H(l), 

Tli(2),  l’U(b)  and  l'K(b).  These  equations  are  solved  simultaneously  to  give 

the  bowl,  and  element  pressures  in  the  supply  and  return  filters  with  the 

relief  valve  open. 

The  bowl  and  element  pressures  for  the  supply  and  return  filters  art- 
used  to  calculate  the  flows  and  pressures  at  the  connections  to  the  i ll  tors. 
Q(i)“(G(D— rii(i))/z(i) 
l*  (1 ) -1*11(1 1 

Q(2)=(C(2)-VK(2})/Z(2) 

P (2)*,i’li  (2) 
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Q(5)-(C(5)-PB(5))/Z(5) 

l'(S)-l'li(5) 

Q(b)-(C(b)-PE(«,))/7.(6) 

0 . 9 2 . 2 Assumptions 

ll  is  assumed  that  a Linearized  equivalent  conductance  may  be  used  to 
calculate  the  pressure  drop  across  the  element  when  the  relief  valve,  is  open. 
The  re  lie l valve  is  assumed  to  open  instantaneously. 
b.d2.3  Computational  Methods 
SECTION  1000 

h DO  loop  is  used  to  calculate  pseudo  conductances  tor  the  bowl  and 
element  volumes  tor  each  filter.  The  filter  element  constant  for  each 
filter,  D(CONSEEir) , is  adjusted  lor  fluids  other  than  MT1.-H-5606  and/or 
tempi::  atuves  other  than  100°T. 

DO  ITiOO  3 

11-  (K--1  )*i) 

1) (VOLIN  ilO-I)  (V0L1N+K)/(1HJ1.K(KI  )*0E1,T) 

UfVtlLEX+P)--«D  O'OEEX+l’)  / (UULK(KL) *DEI.T) 

1) (CONCld, IT‘’)-V j SC(KI  )*RH0(K<  )/  (.028*8. zK-5)*D(C0NSEL+P) 

1200  CONTINUE 
SEC1'  ION  1S0U 

A test  is;  made  to  insure  the  tiltcr  is  properly  connected . M:  a 
connection  is  found  to  be  in  error  a massage  is  printed  and  the  rue 
continues.  Only  calls  to  connection  1,  3 and  5 are  allowed. 

for  each  filter  the  f iter  element:  constants  D(C0NSEL,+F)  and 
1)  (CONEZt  r)  arc  added  to  Lin  0 and  steady  state  flow  coefficients. 


h.H2~6 


respectively . 'Che  pleasure  drop  across  the  filter  is  subtracted  from 


the  upstream  pressure  for  the  ley. 

SECTION  2000 

A do  loop  is  used  to  calculate  the  following  constants  for  each 
filter,  l'&eudo  eondue tr. vines  n re  car cul.a ted  lor  use  in  the  transient 
cal (. uln  t ion  so  nt ton . 

DO  2010  t»  l,  3 
&->  2 *1-1 
N--MH 
!.  l-h(H) 

L2"h  (N) 

h«(I-l)*» 

DT  (GINHi)  = 1.0/Z(U)  H) (V0L1.N+F) 

DT(GOUTH-H)«1.0/Z  (L2)+D(70L.EX+F) 

DT  (GTOT+H)  = (DT  (GlN+lt)+DT(G0l'T+H)  ) / (DT/ GIN+H;  *DT  (GOUT+U)  ) 

DT (GTOT+H) =0.5* (DT/GT0T+H)+D (COM SKI  ,+F) )/D(C0”bZ+F) 

SUCTION  3000 

The  values  of  DTO’Bl.+H)  and  DT(PEL-Hl)  are  calculated  for  each  filte 
using  a do  loop. 

DO  3060  1 = 1,  ,i 
M=2*I-1 
N=M+L 
Ll==L  (M) 

L2=(L(N) 

F=  (1-1 )M 
K=(l-1)*8 
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DP IN- (C(L1)/Z(L1)+D (VOLIMfF)*DT(PRESSB+H) )/DT(GIN+H) 

DPOUT- (C(L2)/Z(2)+D(VOLEX+F)*DT(PRESSE+H))/DT(GOUT+H) 

DT (QE+H)'SQRT (DT(GTOT+H) **2 ,+ABS (DPIN-DPOUT) /D (CONEZ+F) ) 

DT (QE+H) -SIGN (DT (QE+A) -DT (GTOT+H) , DPIN-DPOUT) 

DT  (P  BL+H)  =*DP  IN--DT  (QE+E)  / DT  (GIN+H) 

DT (PEL+H) -DPOUT+DT (QE+H) /DT (GOUT+H) 

The  pressures  and  flows  at  the  connections  are  then  calculated  and 
post  values  of  DT (P BL+H)  and  DT(PEL+H)  are  saved. 

Q (LI )-  (C  (LI)  -DT  (P1VL.+H)  ) / Z (LI ) 

1>  (LI )=DT (PBL+H) 

Q (L2)= (C (L2) -DT (PEL+H) ) /Z (L2) 

P(L2)*DT (PEL+H) 

DT  (PRESS B+H)=DT  (PBL+11) 

DT (PRESSE+H)=DT (PEL+H) 

The  difference  between  the  supply  element  pressure,  DT(PEL+16), 
and  the  return  bowl  pressure,  Dl’(PBL)  , is  then  compared  with  the  relief 
pressure,  PREL.  If  the  difference  is  less  than  the  relief  pressure  the 
subroutine  returns  execution  to  the  calling  program.  If  the  difference 
is  greater  than  PREL  the  bowl  and  element  pressures  for  the  supply  and 
return  filters  are  recomputed. 

The  conductances  of  the  lines  are  computed. 

Gl=l . / Z (LI) 

G2=1./Z(L2) 

C7=1./Z(L6) 

G9=1./Z(L6) 

The  A array  is  zeroed.  The  A and  B arrays  are  then  loaded  for  the 
matrix  solution  using  S1MDLT. 
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A (1 , 1 ) =G1+D  (V0I,IM)+GR£L+GEQ1 

A(1,2)=-GEQ1 

A(1,4)=-GREL 

A(2 , 1)“-GEQL 

A (2, 2 )=GEQ1+D (V0LEX)+G3 

A ( 3 , 3 ) = G7+D (VOLIN+8 ) +GEQ2 

A(3, 4)=-GEQ2 

A(4, 1)=-GREL 

A(4,3)=-GEQ2 

A (4 , 4)=GEQ2+D (VO  LEX+8  ) +GREL+G9 
B (1) =C (L1)*G1+DT (PBL)  *DT (VOLIN) -PEEL*GREL 
B (2  )=DT  (PEL)  *D  (VOLEX)+C  (L2 ) *G3 
B(3)-C (L5)*G)+DT(rBL+16)*D (VOLIN+8) 

B (4 ) =DT (PEL+16) *D (VOLEX+8)+PREL*GREL+C (L6 ) *G9 
CALL  SIMULT  (A,  B,  4,  J) 

The  bowl  and  element  pressures  are  returned  through  B and  are 
saved.  The  flows  and  pressures  at  the  connections  to  the  supply  and 
return  filters  are  then  recalculated  using  the  newly  computed  bowl  and 
element  pressures. 

DT(PRESSB)  = B(1) 

DT(PRESSE)=B(2) 

DT (PRESSB+16 )=B(3) 

DT (PRESSE+16 )=B(4 ) 

Q(L1)-(C(L1)-B  (1))/Z(L1) 

Q(L2)=  (C(L2)-B(2))/Z(L2) 

Q(L5)«(C(L5)-B(3))/Z(L5) 

0(L6)=(C(L6)-B(4))/Z(L6) 
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P(L1)-B(1) 
P (L2)=B(2) 
P(L5)=B(3) 
?(L6)=B(A) 


6 . 82 . 4  Approximations 

Nonlinear  pressure  drop  effects  are  assumed  to  be  proportional  to  the 

2 

Q term. 


6.82.5  Limitations 

The  pressure  and  flow  calculations  with  the  relief  valve  open  are 
approximations  the  accuracy  of  which  will  decrease  as  the  duration  of  the 
relief  valve  opening  increases. 

6.82.6  Variable  Names 


Varlable 
D (C0NE2) 

D (CONSEL+F) 
DPIN 
DP  OUT 
F 

GEQ1 

GEQ2 

DT(GIN-Hl) 

DT (GOUT+H) 


Description 

Nonlinear  Element  Constant 
Linear  Element  Constant 
Intermediate  Calculation 
Intermediate  Calculation 
lr  crenient 

Return  Filter  Equivalent  Conductance 
Supply  Filter  Equivalent  Conductance 
Sum  of  Inlet  Conductances 
Sum  of  Outlet  Conductances 


Units 

psi/cis1,/2 

psr/crs 


CIS/PS1 

CIS/PSI 

CIS/PSI 

CIS/PSI 


GREL 

Relief  Valve  Conductance 

DT(GTOT) 

Intermediate  Calculation 

G1 

Line  Conductance 

G3 

Line  Conductance 

0/ 

Line  Conductance 

CIS/PSI 


CIS/PSI 

CIS/PSI 

CIS/PSI 
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G9 

11 

I 

II 

J 

J1 

K 

LI 


L2 


L3 

L4 

L5 

L6 

M 

N 

DT(PBL+H) 

DT(PEL+H) 

PREL 

DT (PRESS B-H) 
DT(PRESSE+H) 
DT(QE-H) 

DT (VOLEX+F) 
DT  (VOLIN+F) 


Line  Conductance 

Increment 

Counter 

Counter 

Counter 

Counter 

Counter 

Dummy  Variable 

Dummy  Variable 

Dummy  Variable 

Dummy  Variable 

Dummy  Variable 

Dummy  Variable 

Dummy  Variable 

Dummy  Variable 

Filter  Bowl  Pressure 

Filter  Element  Pressure 

Relief  Pressure 

Filter  Bowl  Pressure 

Filter  Element  Pressure 

Flow  Across  Filter  Element 

Exit  Volume 

Inlet  Volume 


CIS/PSI 


PSI 

PSI 


PSI 


PSI 

PSI 


CIS 


IN 


3 


IN 


3 
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6.82,7  Subroutine  List in: 


G -n  ROUT I M b FI  LTS2  ( 0 , OT , 0 0 , L ) 

C****  RL.VIoLD  FL3  5,  1975  ***** 

COti:-iOM  N T fc.  L PL , U TO  L P L , I PT , I PO I n T , iv  PT  S , 1 .9  L.  L , KKliL,  ilTCPL,NLPLT(  51,3), 
1 ?9L»:0(9n,  12)  ,LCS(90,19)  ,ILfc;G(  1400)  , ?i!(  90)  ,<?»<  00) 

CO -i S U j/ ?ARi  i ( 150,0)  ,P.i(  1500)  ,0.i(  1500)  ,P(  300)  ,Q(  300)  ,C(  300) 
1,3(3.10)  ,RHO{  20)  , .0 2OR.(0(  20)  ,VISC(  20)  ,3ULX(  20)  ,Tli.-»P(  20)  , ?VA<?(  20) 

2, ATPat:S,T,  0L.LT , TFI.'JAL,  PLfOt.L,  PI  , TITLE ( 20)  , LEG'*,  ICGK 

3,  RTC.,P(  90)  ,LST\?.T(  150)  ,ULPT(  150)  #LTYPb(99)  , MC  ( 9 9 ) , I iX,  I .5 

•1 , 1 N V , I S T fc P , r! L I *J L,rfLL,I D,  It, NT ; N L I N L , . i f J L L , . i M Lf, G , . i - 2 KO PL UT 
5,u^LPTS,.OG 

OliiEWSIO-v  |}(  24  ) , OT(  12)  , 00(  1 ) , L(  f! ) , A(  4 , 4 ) , J3'(  4 ) 

IfWEGLR  VOLT  1 , VOL!.,-' , CONSKL, CONI'. 7 , GI.-5 , GOUT , GTOT , L,  PL L,P*t , 

1 PR  t\ A.3-3  , PRf-iiSL  , F , 1 1 
C *****  O'  ARRAY  VARI  \3L-_S  ******* 

DATA  VO  LI  0/1/ , VO  Lr-  X/  2/ , COTG  fc  L/  3/  , COO  b 2/  4/ 

C ****  OT  ARRAY  VARI  V3LLS  ****** 

DATA  G I V 1/  , GOUT/  2/ , PRLSbA/  3/ , P 2 LS  J L / 1/ , GTOT/  5/ , P:3  L/  6/ , PL  L/  7 / 
l,Ob/ 9/ 

I?( IfcCTR)  1 0 09,2000,3909 

C :i!.;CTIC'.i  1000  CGTAGLISrli.S  CCNbTAMTS  FOk  USE  If!  FUTURE  CALCULA  1‘IOMd 
1000  CONTINUE 

50  I?  (IULL.  iL.O)  CO  TO  1500 
C ALT  P.LLIbP  VALVE'  PRESSURE 

?Pl.L«3  050. 

C GET  RELIEF  VALVE  AO.iITTAUC*. 

OR) L=,5 

KI  = KTt.-»?(  INC;) 

OO  120"  :>1,3 
7=(t:-1)*.i 
0= (v-l) *0 

•:  SET  CONSTANTS  FOR  IUTt-GR-ATIOR  OF  PRESSURES 

D(  VO-LIA  + ? ) = D(  VC  LI  >+?)/.(  HULK(5CI)*uLLT) 
n(VOLH,X+?)»D(  VGLEX+f ) /(  OUT/:  ( RI ) *DEL7) 

C AO.TU'JT  TwPnTTt-C  CO  ASTAPTb  FOu  FLU  I O OTHt  ?«'  T,-A*i  1 1,-3-5605  ANO/OP 
C T PL  RATjR OH  OTUEF  T-PA  C 100  ObG  F 

O ( COSE L L+F ) = VI SC ( FI)  *.I:i:0(  ’’!)/{  . 020*9 . 2L-5 ) 

A*  O ( CONS  LL+T  ) 

IF(D(CONSL L+r  ) . Ll  . 0 . 0 ) D ( CO*  j i- L+F ) = . 0 0 0 1 
1200  CONTINUE 
RETURN 
]590  F=0 

CO  TO(  1550,1000, 1 5-j.l,  1200, 1 510,1300)  , TNi; L 
1519  F=?+4 
1529  F=F+.1 
1559  C OUT  I r;  CL 

OA  = t'CLF.G(  I ALL,  1) 

OG=P?LtG( I*EL, 2) 

P -CL  l G { I C L L , 5 ) = p 0 L l G ( I -i  l;  L , C ) + O ( C C ; C L.  L + ? ) 

? GL  L G ( I •!  L L , 8 ) = PO L L G ( I b L , 5 ) + O ( C O T L 2 + f ) 

P 3Li.G(  I JLL,  11 ) =?OLi.G(  I U L,  1 1 ) -OA*Ob*D(  CO-'SuL+F ) - 
1 Oo * "'•A*  * 2 • * .0  ( CO’ ’ L 2+F) 

!\  L i’flR 

12  00  CONTI  OJL 
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6.82.7  (Continued) 


WRITE ( 6, 1301)  INI),  IWEL, KNEL 

1°01  rOR.iAT(  2X,  7i!C0;i?  '30, 14, 3 1 .‘i  CALLED  INCORRECTLY  Pf(0.i  LLG  NO, 
1 I4,7H  CON  NO, 14) 

RETURN 


SECT  2000  DLTCP.iilNiij  VALIDITY  OP  COMPONENT  CONJECTIOHS  AND 
DIRECTION  OF  FLOW . INITIAL  PRESSURES  IN  EL  EKE  NT  AND  IN  OOv/L  AH 
'NELL  AS  INITIAL  FLOW  ACROSS  LLiTiUMT  \KE  CALCULATED  AND  STORED 
2000  CONTINUE 

DO  2020  1=1,3 
- i= 2 * I — 1 
N = it+1 

Ll=L(.i) 

L2=L(  ti ) 

F = ( I - 1 ) * 4 
U=(I-1)*3 

SET  DUii.'iY  VARIABLE 

STORE  QOwL  PRESS,  LLEkEV4T  PflcSS  AND  FLOW,  AMD  PASSAGE  DELTA  P* 
D(  CO.vS EL+? ) =1  ,/D ( CONSLL+F ) 

DT(  PRESS  J+n)  = P(Ll  ) 

DT(  PREGSL+.I  ) =?(  L2  ) 

DT( OI.-i+H ) =1 . 0/Z ( LI ) +D( VOLIN+F ) 

0‘I  ( G0UT+ U ) = 1 . 0/  Z ( L ? ) + 0 ( VO  Lb  X+? ) 

OT  ( GTOT+tf ) » ( DT  ( GI  C+H ) + DT  ( OOUT+U ) )/(0T(  GI  4+..J ) * DT  ( GOUT+H ) ) 

OT ( GTOT+H ) = 0 . 5 * ( CT ( GTOT+b ) + D{  CONS  t.L+F ) )/D(  CONE 2+F ) 

DT ( POL+M ) =DT(  PRESSD+f-J ) 

OT ( PI.;L+;I)  «DT(  PReSSe+H) 

DT(0E+M) =0. 0 
?020  CONTINUE 
Ml  TURN 


SECT  3000  CALCULATES  AMD  STORES  INTERNAL  AND  COUiiECTIO'J 

Aim  PLOWS 
3000  CONTINUE 

DO  30*0  1=1,3 
.=  2*1-1 
:i=;  :+l 
L1=L(  li) 

L2=L( M ) 

F= ( 1-1 )*A 
H=( 1-1 ) *3 
3032  CONTINUE 

D?Ir3=(C(  Ll)/Z(  Ll)+D(  VOLIN+F)  *OT(  PkESSD  + U)  )/DT(GI  3+.-J) 
nPOUT*(C(  L 2 ) / Z ( L 2 ) + D ( VO  Lr.  X+ F ) * DT  ( PRESSL+  3}  )/  DT{  GOUT+S ) 
DT  ( O l- + H ) = S OR  T ( OT  ( <3 TOT+S ) * * 2 . + A .OS  ( DPI  J - 0 PC  UT ) / D ( C C M l 2 + r ! 
DT  ( OL+il ) »3 1 CM  ( DT ( %+’-! ) -OT(  GTOT+E  ) , DPI  M-OPOUT ) 

DT  ( ? 3 L+  S ) = 0 d x M - d T ( 0 L + . i ) / D T ( G I + 3 i ) 

DT  ( ? U L+ U ) = D PO  UT + DT  ( D E + : ! ) / DT  ( C-OUT + H ) 

^(Ll)  = (C(Ll)-0r(  PDL+.i)  )/3{Ll  ) 

? { L 1 ) = DT  ( P J L+:I ) 

D(L2)=(C( L2 ) -DT( PEL+U) )/3( L2) 

P(L2)=OT( PEL+H) 

M(Pm,S33«!).DT(?w:;)  DECT  Ai/ill  A! 
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6.82.7  (Continued) 


DT(  PRIiSSE+H)  =DT(  PEL+M) 

30  GO  CONTINUE 

IF(  DT(  PCI.+l  6 ) -DT{  POL)  . LT.  PR  EL)  GO  TO  3200 
LI  =L( 1 ) 

L.2=L( 2) 

L3=L(  3 ) 

LA=L( d) 

L5=L(  0) 

L0=L(  G ) 

GE01»n-T(  DE)/(DT(  PGL)-DT(  PEL)  ) 

3L 0 2= OT  ( CL  + 1 6 ) / ( DT  { ?3  L+ 1 6 ) - OT  ( PL  L+l  S ) ) 

3152  0.1=1. /Z ( LI) 

C3=1./Z(L2) 

G7=1./Z(LP) 

03=1. /Z(LG) 

DO  20  11=1,4 
DO  10  J 1 = 1 , 4 
10  A(J1,I1)»0.0 

3 ( 1 1 ) = 0 . 0 
20  CONTI  MUL 

M 1, 1)=-01-D(  VOLI.M)-ORbL-OLOl 
3(1,2) =OLjl 
A ( 1,4)  =GR£.L 
•3(2,1)=0L;01 

3(2,2)  =-GL  ' 1-D  ( VO Lt : V ) -q 3 
A ( 3,3) =-07-D( VOLIM+3 ) -GL02 
.3(3,4)  ='.3K02 
;\(  4,1)=c*pi;.l 
3 ( 4,3) =00 02 

A(  4 , 4 ) — GK02-C ( VOLi.X+3  ) -GP.CL-GO 

■>(  l)=-C(  LI)  *01-DT(  POL)  * OT ( VOLIN )f PS EL*CKt  L 

3(2) =-D?( PEL) *D( VOLbX) -C ( L2 ) *G3 

3(  3 ) =-C ( L 5 ) * 0 7 -DT ( £*0L+1S)*D(  VQL1N+8) 

3(  4 ) =-DT(  PLL+1 G)  *D(  VOLLX+  3 ) -PR[vL*GREL-C ( LG  ) *0° 
CALL  OI.iULT  ( 3 , 3 ,4  , T ) 

DT  ( PEESSO  ) =:3(  1) 

DT(  P1U.SS  r.)  =3  ( 2) 

DT(  PR L333+1  S ) =r2 ( 3) 

0 T ( ? t.  S !r !.  + 1 G ) = ?.  ( -1) 

C'(L1)«(C(L1)-3(1))/Z(L1) 

0(L7)  = (C(L2)-B(  2)  )./Z(L2) 

0 ( L 5 ) = ( C ( L 5 ) - 0 ( 3 ) ) / Z ( L 5 ) 

D(LG)=(C(LG)~3{ 4) )/Z (LG) 

?( LI ) =3 ( 1 ) 

^(  L 7 ) = 3 ( 2 ) 

? ( L 5 ) = 0 ( 3 ) 

P{ LG ) =3( 4) 

3 200  continue 

Rf-TiJRN 


UkHJWc.l 
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6.83  SUBROUTINE  1-II.T83 

FI LI 8 3 is  a simulation  of  an  inline,  bypass  type,  mult leonneet Ion 
filter.  One  Inlet  and  two  outlet  connections  are  used. 


r-  CONNECTION  NO. 


aow:^> 


INLET  voluml  — 

ONCLUOES  INLET 

volume  ) 


— BY  PAUL  VAl.VE 


X-  A’/XVAY 
X-.-.'XxXivV 


■e.  Vva  - - 

&XXXX5 


r - CONNECTION  NO.  2 


CONNECTION  NO.  3 


EXIT  VOLUME 
(INCLUDES  ELEMENT 
VOLUME  ) 


ELEMENT 
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6.83.1  Mach  Model 


F1LT83  calculates  the  bowl  and  element  pressures  under  transient 
conditions.  FILT83  DIAGRAM,  Figure  6.83-2,  schematically  describes  the 
model  where  PB  and  PE,  the  bowl  and  element  pressures,  are  to  be  determined. 
The  past  values  of  the  howl  and  element  pressures,  PBL  and  PEL,  are  shown 
at  the  ends  of  pseudo  passages  along  with  their  conductances,  D (VOLIN) 
and  D(VOLEX),  respectively.  These  conductances  are  calculated  using  the 
equation: 

CVQl  = VOL/  (BULK*DELT) 

where  Gvo]  = Conductance  of  the  volume 
BULK  = fluid  bulk  modulus 

VOL  = volume  of  oil  in  bowl  or  element  section 
CELT  - time  step  of  program 

The  conductance  of  the  element  Is  the  reciprocal  of  the  input  element 
constant . 

GL>le  = 1 . /U  (CONSEL) 

The  conductance  of  the  relief  valve  is  the  reciprocal  of  the  input  relief 
valve  constant 

Gri;l  = 1 . /l)  (PEL) 

The  conductances  of  the  throe  lines  connected  to  the  filter  1 ::  simply 
the  reciprocal  ol  the  individual  line  Impedances. 

I ine  = ^ • /'/•)  | ne 

With  all  the  conductances  calculated,  flows  are  summed  about:  I’ll  and 
1’K  resulting  in  the  following  equations. 

GJ(PB-C’.(U))  + F'vol  p„(l’B-PBL)  TG,,1l,  (PB-PK)  + Grel  (Pli-PE)  - 0 

Grel  ( PK-PH ) | (PE- I'M)  + Gvolex  U’K-Pi:L)-H;2  (PG-b(L2)  ) 4 G3  (PK-UL3)  ) - 0 


().  83-2 


It’  the  difference  between  the  previously  calculated  values  ol’  PB 
and  PE  is  less  than  the  cracking  pressure  of  the  relief  valve,  (-rel  Is 
set  equal  to  zero.  The  above  equations  are  then  solved  to  yield  the 
pressures  PB  and  PE.  The  values  oi  PB  and  PE  are  then  set  equal  to  PBL 
and  PEL  respectively.  The  inlet  and  outlet  flows  are  then  calculated 

Q(I.l)  = (C  (1.1)  - l'B)  //.(LI) 

Q(L2)  - (C (L2)  - PE)/Z(L2) 

Q(L3)  = (C  (1.3)  - PE)/Z(L3) 

6.83.2  Assumptions 

The  pressure  losses  at  the  Inlet  and  outlet  are  assumed  to  be 
negligible  and  are,  therefore,  not  included  in  the  simulation.  The 
relief  valve  is  assumed  to  open  and  close  instantaneously. 

6.83.3  Computational  Methods 
SECTION  JLOliO 

Pseudo  Impedances  For  the  bowl  and  element  sections  are  calculated 

using 

D(VOLIN)  = 111)  LK  (KTEM 1 ' ( 1 ND ) ) / L)  ( VOL  IN  ) * D ELT 
O(VOLEX)  = BULK  (KTKMP  (INI)  ))/D(VOLEX)*DEl.T 
The  filter  element  constant  is  adjusted  for  fluid  other  than  MIL-11-6606 
and/or  temperature  other  than  100UF. 

SECTION  1500 

The  leg  constant  for  l;  is  updated  and  the  outlet  pressure  is  calouinlcd 
and  stored.  The  howl  and  element  pressures  are  initialized. 

SECTION  2000 

The  impedances  are  converted  to  conductances 


1 

■i 
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D(VOLEX)  = 

D (VOLIN)  = 
D(CONSEL)  = 
D(REL) 


1 . /D (VOLEX) 
l./D (VOLIN) 
I. /D(CONSEL) 
I. /D(REL) 


The  constants  DT(G1),  DT(C,2),  DT(G3)  are  evaluated 

DT(G1)  = l./Z(Ll)  + D (VOLIN  j + D(CONSEL) 

DT(G2)  = -D(CONSEL) 

I)T  (G3)  = -D(CONSEL)  -PD(VOLEX)  + l./Z(L2)  -r  l./Z(L3) 
SECTION  3000 


The  difference  betweet  the  previous  values  of  the  bowl  and  element 
pressure,  DT(PBL)  and  DT(PEL),  is  compared  to  the  relief  pressure. 

If  the  relief  pressure  is  exceeded  DRELF,  the  relief  valve  conductance,  is 
set  equal  to  the  input  value  for  the  relief  valve  conductance,  D(REL) . If 
the  relief  pressure  is  not  exceeded  1)R ELK  Ls  set  to  0.0. 

DR ELF  = 0.0 

IF  (DT  (FBI  ) - DT  (PEL)  . C.T  . D (RELPR)  ) DRELF=D  ( REL) 

The  bowl  and  element  pressures,  DT(PHI.)  and  DT(PEL)  are  then  calculated 
and  stored 

DG1  = DT(G1)  + DRELF 
DG2  =••  DT (G2)  - DRELF 
DG3  = DT (03)  + DRELF 

Rf  = DT (PB2)*D (VOLIN )+<.'. (L L)  /Z (Ll )+D (RELPR) *DRELF 

R2  = DT(PEL)*D (VOLEX) +G(L2)/Z (1,2 j+C (L3) /Z (L3)-D (RELPR) *DRELF 

DT (PEL) = (R2*DG1-R1*DG2) / (DC3*DG1-DG2**2 . ) 

DT(PBL) = (R1*DG3-R2*DGL) / (DG1*DG3-DG2** 2 . ) 

The  pressures  and  flows  at  each  of  the  connections  are  then  calculated 


and  stored. 

6.83.4  Approximat  Lons 

The  relationship  between  pressure*  drop  and  flow  across  the  filter 
is  assumed  co  he  linear. 
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6.83.5  Limitations 


Thu  accuracy  of  the  model  will  decrease,  at  flow  rates  where  the  effects 


of  the  pressure  1 
6.83.6  Variable 

osscs  of  inlet  and  outlet  passages  become 
Names 

significant . 

Variable 

Description 

Units 

D(CONSEL) 

Element  Constant 

PS1/CIS 

TIC  1 

Dummy  Variable 

— 

DC  2 

Dummy  Variable 

— 

DG3 

Dummy  Variable 

— 

DT(G1) 

Sum  of  Inlet  Conductances 

CIS/PS1 

DT(G2) 

Element  Constant 

PSI/C1S 

DT  (.03) 

Sum  of  Outlet  Conductances 

CIS/PS1 

LI 

Dummy  Variable 

— 

L2 

Dummy  Variable. 

-- 

1,3 

Dummy  Variable 

— 

DT(PBL) 

Bowl  Pressure 

PS1 

DT(PEL) 

Element  Pressure 

PS1 

K'l 

Intermediate  Calculation 

— 

K2 

Intecined into  Calculat  ion 

— 

D(Rl'L) 

Relief  Valve  Constant 

FS1/CI5 

d(relpr) 

Relief  Pressure 

PS1 

D(VOLLX) 

Exit  Volume 

IN3 

D (VOLIN) 

Inlet  Volume 

IN3 
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6.83.7  Subroutine  Listing 


SiHROUTISb  PILT83  (D,DT,DD,L) 

C****  REVISED  MAY  I , 1976  ****  ^ 

COh.nOK  NTLLPL,UTOL?L, IPT, I POINT,  XPTS,  IR’LL,  FULL,  KTOPL, iJLPLT(  6 1 , 3 ) , 

1 PQLEG(  90,12)  , LC3(  90,  If))  , ILEG(  1400)  r PN (00)  , n.>;(  90) 

CO.'h’ iOM/5U3/ PAR-1 ( 150,0)  , P.i(  1500)  ,04-»(  1500)  ,?{  300)  ,0(  300)  ,C(  300) 

1, Z(  300)  , RMO(  20)  ,S20R110(  20)  ,VISC(  20)  ,0ULK(  20)  ,TErf?(  20)  ,PVAP(?.r.) 

2 , ATPRfcS , T , DLLT , TP  I UA  L , PLTDbL , PI , TITLE  ( 2 0 ) , LEGi'i , I CON 

3, K?brtP(  09)  ,LSTART(  150)  ,MLPT(  150)  , LTY?L(  90)  , NC(  99)  ,P3.V,ItfZ 

A , I «JV,  ISTEP, ULTNL , MEL,  I NO , 1 1 HTR , ;*iH LISE,  riXtL,«'iNL£G , «\>3WGOL , NO PLOT 
5,iiMLPTS,.»»D3 

OINLSSION  D(  1 ) , 0T(  1 ) , 0D(  1 ) , L(  1 ) 

INTEGER  VOLIN , VO  LEX,  CO-33LL,  POL,  PEL,  G1,G2,G3,  RLL,  RLE  PR 
C****  0 ARRAY  VARIABLES  **** 

DA  TA  VO  LIN/1/,  VOLE  X/  2/  ,COKS  EL/  3/ , P.EL/4/ , HELP?/ 5/ 

C****  DT  ARRAY  VARIABLES  **** 

DATA  P.U.,/1/  , PEL/ 2/ , Gl/3/ , 02/4/ , G3/5/ 

IF( IKWTS)  1000,2000,3000 

C SECTION  1000  ESTABLISHES  CONSTANTS  FOR  USE  13  FUTURE  CALCULATIONS 
1000  CONTINUE 

IF  (INEL.N’L.O)  GO  TO  1500 
C SET  CONSTANTS  FOP  I NTS GR.ATI0M  OF  PRESSURES 
D ( VOLIN ) = 3 ULK  ( FT E.-i  P ( I N D ) ) /O ( VOLT. -3 ) * DE  LT 
U(  VOLL.X)  =3UL**' ( KTE-.*iP(  I -NO)  ) / D { VO L E X ) * D L LT 
C ADJUST  INPUTTED  CONSTANTS  FOR  FLUID  OTHER  THAU  .iIL-E-5006  A io/Ot'. 

C TL.iPEP.ATURt.S  OTHER  THAN  100  DEG  F 

0(  COM3  ILL)  »VISC(  RTE.iP(  I NO)  ) *RMO(  KTC.i  ?( 1.1!))  )/(  .022*8. 2i.-5)  *'C(  CONSuL) 

I F ( D ( COTS EL ) . Ll . 0 . 0 ) 0 ( CONSUL) =.0001 

RETURN 

1500  CONTINUE 

IF (R'NLL-2) 1510, 1510, 1810 
1510  D.A  = ?CLRC(  I vEL,  1) 

0?-?DLLG( I 3 L L , 2) 

PDLEG(  I’NLL,  5 ) = POL  EG  ( I ILL,  5 ) + D(  CONSUL) 

UT(  P3L)=POLEO(  INLL,  11) 

P0Lt;G(  I -iEL,  11)  = P°LEG(  I ULL,  1 l)-0-A*OS*D(  CONSUL) 
n-p ( PEL)  = ?OLt.G(  I ILL,  11) 

1 <5 1 o ’RETURN 
2009  CO'iTI-TUC 

D ( VO  LL  X ) = 1 . / D ( VO L E X ) 

D(  VO  LI  ■!)  = !.  /C(  VOLIN) 
n ( C OSS  E L ) = 1 . / D { C 0 NS  u L ) 

D(  R LL ) = 1 . / 0 ( G i.L ) 

DT  ( C 1 ) = 1 . / 3 ( L ( 1 ) ) +D  ( VO  LI  N ) + D ( CONS  c.  L ) 

DT  ( G? ) =-D(  CONS  r.:L) 

Or(G3)*C(CO:iSKL)+D(VGLLX)  + l./Z(L(  2))+l./Z(L(  3)  ) 

RETURN 


SECT  3990  CALCULATES  AND  STORES  INTERNAL  AND  CONNECTION  PRESS'S 
ArJH  FLOES 
3 9 9 0 COSTI'irjL 


BBT  AVAILABLE  COPY 
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6.83-7  (Continued) 


L1=L( 1) 

L2=L(  2) 

L3=L(  3) 

ORLLF=0.3 

IF(OT(  ?UL) -D7( PCL)  ,GT.O(  RELPR)  ) DR LL‘?=0(  ELL) 

OG1  = OT(  G 1 ) + DR6.LF 
DG2=DT(  G2)-DRr.'LP 
OC3=DT(  03 ) +DRLLF 

R1«DT(PBL)  *0(  70LI  -1 ) +C ( Ll)/2(  Ll  ) + 0(  RLLPR)  *DRLLF 
P ?.= OT  ( PE  L ) * D { VOLE X ) +C  ( L 2 ) / ?.  ( L ?. ) +C  ( L 3 ) / 2 ( L 3 ) - 0 ( S L L P R ) * 
DT(  PLL)  = (F2*DGl-r<l*DG2)/(  OG3* 0G1-DG2* * 2 . ) 

OT ( P3L)  = ( P 1 * DG1-R ?*DG2 ) / ( DG1*DG3— OC2*  * 2 . ) 

Q ( L 1 ) = ( C ( L 1 ) - D T ( F B L ) ) / Z ( L 1 ) 

p(ld=dt(?::l) 

C( L2) = ( C( L3 ) -CT( PLL) )/Z( L2) 

P(L2)=OT(  PLL) 

P(L3)=(C(L3)-DT(  PLL)  )/'Z(  L3) 

P(  L3  ) = DT ( PLL) 

3 l.?:jpn 
L t'i  0 
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6.32  SUBROUTINE  CAD92 


Subroutine.  CAD92  is  a dummy  input  subroutine  which  can  be  used  in  the 
place  of  a guidance  and  control  subroutine,  to  input  position  commands  to  the 
elevon  actuator  subroutine. 

The  data  is  inputted  in  a tabular  form,  and  accessed  via  a first  order 
table  lookup  routine.  The  data  input,  described  in  Volume  I,  contains  the 
elevon  actuator  component  number  (L(l)),  the  number  of  data  points  in  the 
tables  (inputted  as  L ( 13.)  and  stored  as  L(5)). 

The  table  of  time  values,  starts  in  D ( 9)  and  can  occupy  8 or  more 
spaces  in  groups  of  8,  this  table  is  followed  by  the  table  of  input  commands 
which  is  also  stored  in  groups  of  8. 

The  first  8 spaces  in  D(  ) are  reserved  for  hinge  moment  data,  which 


will  be  added  later. 


6.92.1  Subroutine  Listing 


SUBROUTINE  CAD9  2 ( D,  DT,  DD,  L) 

C ***  REVISED  SEPTEMBER  1975  *** 

DOUBLE  PRECISION  DD 
INTEGER  TLUD 

COMMON  NTELPL,NTOLPL, I PT,  I POINT, NPTS, INEL, KNEL, NTOPL,NLPLT( 61,3) , 
1 PQLEG( 90,12) , LCS( 90,10), ILEG( 1400) , PN( 90) , QN(  9 0) , VSTORE( 6150) 
DIMENSION  D( 24) ,DT{1) ,DD( 1) ,L(5) 

C0MM0N/3UB/PARM( 150,9) ,PM( 1500) ,QM( 1500) ,P( 300) ,Q( 300) ,C( 300) 

1, Z( 300) , RHO( 20) ,S20RHO( 20) ,VISC{ 20) ,BULK( 20) ,TEMP( 20) ,PVAP( 20) 

2,  ATPRES ,T, DELT,TFINAL, PLTDEL, PI , TITLE ( 20) ,LEGN,ICON 

3, KTEMP( 99) ,LSTART( 150) ,NLPT( 150) ,LTYPE(99) ,NC( 99) , INX, INZ 

4, INV, ISTEP, NLINE,NEL, IND, IENTR,MNLINE,MNEL,MNLEG,MNNOO£,MNPLOT 
5,MNLPTS,MDS 

COMMON  /COM PD/  XD{  4 500 ) , LX(  1500) , LEX( 99 , 4 ) 

DATA  TLUD/1/ 

IF  ( IENTR)  1000,2000,3000 
1000  CONTINUE 

DT(TLUD)=0.0 

L(3)»9 

L(4)=9+(L(ll)+7)/8*8 
L( 5 ) =L( 11) 

NCOMP=L( 1) 

L( 2 ) *L£X( NCOMP, 2 ) 

IF ( NCOMP. GT. IND)  GO  TO  1500 
XD( LEX  ( NCOMP, 2 ) ) =D( L( 4 ) ) 

GO  TO  3300 
1500  CONTINUE 

WRITE( 6,1600)  NCOMP, IND 
1600  FORMAT ( 2X, 14H  COMPONENT  NO, 15, 

1 42H  SHOULD  HAVE  A LOWER  NO  THAN  COMPONENT  NO,  15) 

RETURN 

2000  CONTINUE 

GO  TO  3100 
3000  CONTINUE 

IF(T-DT(TLUD) .LT.  0.040}  GO  TO  3400 
DT( TLUD) =T 

3100  CALL  INTER?  (T, D( L( 3) ) , D( L( 4 ) ) , 10, L( 5 ) , VALY,  IOD) 

NCOMP=L( 1) 

XD(L( 2) ) =VALY 
3300  XD( L( 2) +3 ) =D(  1 ) 

XD(L( 2) +4 ) =D( 2) 

3400  RETURN 
END 
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6.93  SUBROUTINE  CAD93 


Subroutine  CAD93  is  a dummy  input  subroutine  which  can  be  used  in  the 
place  of  a pump  subroutine,  to  input  torque  loads  to  the  APU  subroutine. 

The  data  is  inputted  in  a tabular  form,  and  accessed  via  a first 
order  table  lookup  routine.  The  data  input,  described  in  Volume  I, 
contains  the  number  of  data  points  in  the  tables  (inputted  as  1.(11)  and 
stored  as  L(5) ) , 

The  table  of  time  values,  starts  in  D(9)  and  can  occupy  8 or  more 
spaces  in  groups  of  8,  this  table  is  followed  by  the  table  of  torque  data 
which  is  also  stored  in  groups  of  8. 

The  first  8 spaces  in  D(  ) are  reserved  for  oscillatory  torque  data, 
which  will  be  added  later. 


t 


I 
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6.93.1  Subroutine  Listing 


SUBROUTINE  CAD93  (D,DT,DD,L) 

C ***  REVISED  SEPTEMBER  1975  *** 

DOUBLE  PRECISION  DO 
DIMENSION  D(l) ,DT(1) ,DD(1) ,L(1) 

COMMON  NTELPL, NTOLPL, I PT, I POINT, NPTS, INEL,KNEL,  NTOPL, NLPLT( 61,3) , 
1 PQLEG( 9 0,12) , LCS ( 90/ 10) , ILEG(  1400) , PN( 90) , QN ( 9 0 ) , VSTORE (6150) 

COM  MO  N/  S U B/  P A RM  ( 150,9)  , Pil  ( 1500)  ,QM( 1500)  , P(  300)  ,Q(  300)  ,C(  300) 
1,2(300) ,RHO( 20) ,S20RHO( 20) , VISC( 20) ,BULK{ 20) ,TEMP(20) ,PVAP(20) 

2,  ATPRES,T, DELT,TFINAL, PLTDEL, PI ,TITLE( 20) ,LEGN,ICON 

3,  KTEMP( 99) ,LSTART( 150) ,NLPT( 150) ,LTYPE(99) ,NC( 99) , INX, INZ 

4 , INV, ISTEP,NLINE, NEL, I ND , I ENTR , MNLI NE , MNEL, MNLEG , MNNODE , MN  PLOT 
5 , MNLPTS , MDS 

COMMON  /COMPD/  XD(  4500) , LX( 1 500) , LEX( 99 , 4 ) 

IF  ( IENTR)  1000,2000,3000 
1000  CONTINUE 
L(3)=9 

L(4)*9+(L( ll)+7)/8*3 
L(  5 ) =L(  11) 

DT  ( 1 ) = D ( 3 ) 

RETURN 

2000  CONTINUE 
RETURN 

3000  CONTINUE 

CALL  INTER?  (T, D( L( 3) ) ,D( L( 4) ) , 10, L{ 5) , VALY, IOD) 

DT( 2 ) =VALY+DT( 1)*D(2)+D(1) 

RETURN 

END 
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6.95  SUBROUTINE  APU95 


The  APU95  subroutine  is  a generalized  subroutine  set  up  to  model 
the  auxiliary  power  units  of  the  space  shuttle.  The  function  of  the  model 
is  to  return  values  of  RPM  to  the  pump  subroutine.  The  value  of  RPM  is 
determined  by  burning  the  liquid  fuel  and  looking  at  the  loads  of  the 
gear  box,  hydraulic  pump  and  fuel  pump, 
b . 9 5 . 1 Math  Model 

The  block  diagram  of  the  APU  analytical  model  is  shown  in  Figure 
b.95-1.  An  ON-OFF  fuel  controller  is  used  to  maintain  the  speed  of  the 
turbine  between  an  upper  speed  - RPMH  and  a lower  speed  - RPML.  The 
liquid  fuel  is  converted  to  gaseous  state  in  the  hydrazing  gas  generator 
to  drive  the  turbine.  In  each  cycle,  after  fuel  cut  off,  the  turbine 
speed  reduces  rapidly  due  to  the  loads  reflected  by  the  gear  box,  hydraulic 
pump,  and  fuel  pump.  At  sea  level  the  APU  system  cycles  off  and  on  approx- 
imately 1 cps  with  zero  flow  from  the  hydraulic  pump,  but  cycling  increases 
to  approximately  3 cps  with  maximum  flow  from  the  pump.  The  functions 
and  the  nomenclature  of  the  APU  model  are  in  Table  6.95-1. 

Fuel  Pump  Calculations  of  Flow  Rate,  Change  in  Pressure  and  Horsepower 

itiFp  = 3.0257  x TO"6  Nt  (V}(5W) 

6Ppp  = f'g  “ Py  + 105,20  ITlpp 
HPFp  = 7.0042  x 10"3  mFp  iP 


(400  l Py  1 80) 


VARIABLE 

NAME 

DESCRIPTION 

DIMENSIONS 

c 

o 

- Gas  Spouting  Velocity 

ft/sec 

had 

- Adiabatic  Head 

Btu/lb 

m 

HP 

- Horsepower 

HP 

m 

- Mass  Flowrate 

lb/ sec 

nT 

- Turbine  Efficiency 

— 

N 

- Rotating  Speed 

RPM 

P 

- Pressure 

psia 

P 

- Density 

lbm/f t^ 

R 

e 

- Reynolds  Number 

R * 
e 

- Machine  Reynolds  Number 

T 

- Temperature 

°R 

T 

- Torque 

in-lb 

u 

- Tip  Velocity 

ft /sec 

V 

- Control  Valve  Area  Factor 

SUBSCRIPT 

NAME 

DESCRIPTION  SUBSCRIPT 

NAME 

DESCRIPTION 

d 

Disk  U 

Ullage 

fP 

Fuel  Pump  0 

Total 

g 

Gas  Generator  1 

Inlet 

GB 

Gearbox  2 

Outlet 

hp 

Hydraulic  Pump 

S 

Static 

TABLE  6.95-1 

FUNCTIONS  AND  NOMENCLATURE  OF  THE 
APU  ANALYTICAL  MODEL 

6.95-3 


Controller 


If  (Ny  >RPMH)  SW  = 0.0 
If  (nt  <RPML)  SW=1.0 


Control  Valve  Position 


r i.o 
1 ^ST70TT 

^ - 

r i.o 

I jLtvm 


(Opening  Transient) 


(Closing  Transient) 


Gas  Generator 


Subsonic  Flow: 


, . T2S 

1 > w — > , 55 


/p  \ ( 0.78431) 
. 0,046513  0 PT2S| 


fT 


Sonic  Flow: 


m„  « 0.01012 


Ul'pV 

wj  = 117-903  TG(mF|,  - m^) 


pg“  Ur  * 


p \ (0.21569) 
i2S\ 


< .55 


Tg  - 2160°R 
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Exhaust  Duct 


SpaC6‘  PT2S  - 1.0683  mG(TT;!0)(0‘4"38)  - 0*50097  (mG)2(TT20) 


Sea  Level: 


Ptoc  = 14.7  + 2.2086  x 10‘3  (mQ)  (TT20)(0,79309) 


T2S 


+ 0.0142  (mQ)2  (TT20)(1,0257) 


20,000  FT: 

PT2$  = 6.75  + 4.5162  x 10"6  (mG)  (TT20) 
+ 0.16848  (mG)  (Tr20)0'78269 


1.7809 


Turbine 


dNT  2.9033  x 107 

ar = — ic 


< 

^ • 3432  liu  Had  nT  - HPpp  - HPGB  - I 


Had  - 0.70856 


tg  h • 


D (0.21569) 
*T2S 


] 


C0  = 188.375 
U = 0,023998  N 


/ r p (0.21569)^  ' 

1/Tc  h - J 


nT  - f(U/CQ,  PG) 


Efficiency  Data  From  EFF  vs 


TT2Q  = TG  ^ " nT^  + nT  TG 


T2S 


(0.21569) 


0F  - 8.3900  x 10'7  CD  U3p 


(0.48268) 


U/C  Curves 
o 


ft  Qft-  6 


„ _ 1541.89 

CD  ffeT~ 


_ 2.1341 

„ 0.20017 

D =‘M,7T' 

„ _ 0.058832 
0 


Re*»  79.94  Ntp 


Rf  = 0.89236  R * 


p = 1.21165 


HPGB  = f ^T*  hphp> 


Maximum  Value 


Gearbox  Loss  Data  from  Input  Data  Curve 


6.95-6 
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7 


6.95.2  Assumptions 
TED 

6.95.3  Computat Ions 

1000  Suction 

In  the  1000  section  the  steady  state  APU  characteristi.es  are  stored 
in  the  temporary  variable  array (DT).  The  controller  for  the  fuel  pump  is 
initially  turned  off  and  the  valve  area  factor  (V)  is  set  to  1. 

2000  Section 

In  the  2030  section  variables  are  calculated  for  use  in  the  transient 
section  in  order  to  decrease  running  time. 

3000  Section 

This  section  of  the  APU95  subroutine  computes  the  output  RPM  of 
the  APU  through  a gearbox  and  feeds  this  value  to  the  appropriate  pump 
in  the  simulated  hydraulic  system. 

On  transfer  to  the  3000  section  the  previous  pump  RPH  in  the  DT  array 
is  divided  by  the  gearbox  ratio  to  obtain  an  APU  RPM.  The  fuel  pump  controller 
is  set  to  maintain  the  speed  of  the  turbine  between  the  upper  DT(RPMH) 
and  lower  DT(RPML)  RPM  values.  The  fuel  pump  horsepower  is  computed  from 
the  given  RPM  and  controller  position  as  follows: 

EMDOFP  = 3.0267E-6*  RPM*V 

DELPFr  = DT (PG)-DT (PU)+105 . 28*EMDOFP 

HPFP  = 7.0042E-3*EMDOFP*DFLPFP 

The  torque  of  the  pump  is  also  computed  externally  and  returned 
to  the  APU95  subroutine.  The  APU  subroutine  converts  the  torque  to  net 
horsepower  and  uses  thLs  value  along  with  the  APU  RPM  to  obtain  the 
horsepower  loss  through  the  gearbox. 


il 

■4 


i 


> 
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The  next  step  in  the  computations  is  to  determine  the  flow  characteristics 
in  the  gas  generator,  and  then  calculate  the  flow  rate,  gas  inlet  pressure 
and  change  in  gas  inlet  pressure. 

Knowing  the  gas  inlet  pressure  and  computing  the  U/Cq  value,  the  APU 
efficiency  is  obtained  from  a table  lookup.  Ths  APU  efficiency  vs  U/Cq 
curves  were  input  with  the  APU  data. 

After  determining  the  exhaust  duct  conditions  the  differential  change 
in  RPM  (DRPM)  is  calculated.  The  actual  value  of  APU  RPM  is  determined 


as  follows: 


RPM  = RPM  + BELT* (BRPM+DT (DRPMO) ) /2 . 0 
where 

RPM  - The  initial  entry  RPM 
DELT  - Transient  time  step 

DRPM  - Computed  differential  change  in  RPM  for  this  time  step 
DRPMC  - Previous  differential  change  in  RPM 
The  new  value  of  RPM  is  multiplied  by  the  gearbox  ratio  and  the 
value  is  returned  to  the  calling  subroutine. 


6 . 95 . A Approximations-  TBD 

6.95.5  Limi tations  - TBD 

6.95.6  Variable  Names 


Variable 


CD 
CDO 
CED 
CO 
C V 

DELPFP 


Description  Dimensions 

Maximum  value  of  variables 
Array  of  temporary  variables 
Array  of  input  constants 

Gas  spouting  velocity  ft/sec 

Delay  variable  of  value  position 

Pressure  drop  across  fuel  pump  psi 
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Variable 

Description 

Dimensions 

DF 

Temporary  Variable 

DPG 

Rate  of  Change  of  Gas  pressure 

DPGO 

Previous  value  of  DPG 

DPGSAV 

Previous  value  of  DPGO 

DRPM 

Rate  of  change  of  RPM 

DRPMO 

Previous  value  of  DRPM 

DT 

Delta  time  step 

sec 

PTC 

Delay  time 

sec 

EFF 

Efficiency  of  APU 

EMDOTG 

Mass  flow  rate  - gas  generator 

lb/ sec 

EMDOFP 

Mass  flow  rate  - fuel  pump 

lb/ sec 

GBR 

Gear  box  ratio 

HPFP 

Fuel  pump  H.P. 

I1PGB 

Gear  box  HP  loss 

HP  HP 

Horsepower  hydraulic  pump 

HAD 

A diabetic  head 

btu/ lbs 

I 

Temporary  integer  vari;  le 

IE 

Integer  variable 

ISW 

Controller  indicator  1 = on  - opening 

transient 
2 - off  - closing 
transient 

NAGB 

Constants  for  gear  box  data 

NEXTR 

Temporary  variable 

PEXO 

External  pressure 

psi 

PG 

Gas  pressure 

psi 

PGO 

Initial  value  of  PG 

psi 

PGSAV 

Previous  value  of  PG 

psi 

;s 


A 
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Dimension 


Variable 

POPTPG 

PTPG 

PT2S 

PT2SO 

PU 

PUO 

RED 

RES 

RESTAR 

RHO 

RPM 

RPMH 

RPML 

RPMO 

RTRED 

T 

TCVO 

TFAPU 

TG 

TGO 

TGPOW 

TT20 

U 

UCO 

V 

Zffl 


Description 
Temporary  Variable 
Temporary  variable 
Turbine  exhaust  pressure 
Previous  value  of  PT2S 
Fuel  tank  pressure 
Initial  fuel  tank  pressure 
Temp  variable 
Temp  variable 
Temp  variable 
Temp  variable 
Turbine  RPM 

RPM  high  limit  for  valve  closing 
RPM  low  limit  for  valve  opening 
Initial  RFM 
SQRT  or  RED 
Time 

Time  at  Valve  closure 

Time  to  fail  APU 

Gas  tempera rure 

Initial  gas  temp 

Temperature 

Outlet  gas  temp 

Tip  velocity 

U divided  by  CO 

Control  valve  area  factor 

Temporary  Variable 


psi 


psi 

psi 


rpm 

rpm 

rpm 

rpm 

sec 

sec 

sec 

°R 


o 


R 


ft/ sec 
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6.95.7  Subroutine  Listing 


SUBROUTINE  APU95(D,DT,DD,L) 

C REVISED  21  AUG  '75 

C 

C AUXILIARY  POWER  UNIT  (APU) 

C 

INTEGER  PT2SO, PGO, TGO, PUO, RPMH , RPML, 

+ CEDI, CED2,CED3,CED4,TFAPU, GBR, 

+ PT2S , PG, TLUD, DPGO, DRPMO, DPG, DPGSAV,TCVO, PGSAV 
COMMON/ SUB/ PARM ( 150,9)  ,PM(  1500)  ,QM(  1500)  , P(  300)  ,Q(  300)  ,C(  300) 

1 ,  Z ( 300) , RHO{ 20) ,S20RHO( 20) ,VISC( 20) ,BULK( 20) ,TEMP( 20) ,PVAP( 20) 

2,  ATPRES , T, DELT, TF INAL, PLTDEL, PI , TITLE ( 20) ,LEGN,ICOM 

3 ,  KTEMP( 99 ) ,LSTART(150) ,NLPT(150) ,LTYPE(99) ,NC(99) ,INX,INZ 
4,INV,ISTEP,NLINE,NEL,  IND,  I ENTR,  I1NLINE , MNEL,  MNLEG , MNNODE , MNPLOT 
5 , MNLPTS , nDS 

COMMON  /COMPD/DARRAY( 4500) ,LT(1500),LE(99,4) 

DIMENSION  D( 112) ,DT( 15) ,DD( 1) ,L( 7) 

DIMENSION  NAGB( 2) ,XGB( 8) , YGB( 15) ,XA( 2) ,CDO( 4) 

DIMENSION  TA3X( 4) ,TA3Y( 4) 

DATA  NAG3/ 5,3/, 

+ XGB/20. ,40. ,60. ,80. ,180. , 60000. , 72000. ,80000./, 

+ YG3/2. 37, 2. 62,  2. 85, 3. 11, 4. 4 3, 3. 3 5, 3. 6 3, 3. 9 1,4. 19, 5. 68, 

+ 4.17,4.46,4.77,6.08,6.72/ 

DATA  PT 2SO/1/ , PGO/ 2/ , TGO/ 3/ , PUO/ 4/ , RPMH/ 5/ , RPmL/ 6/ , 

+ CEDI/7/ , CED2/8/ ,CED3/9/ ,CED4/10/ ,TFAPU/11/ , GBR/12/ , 

+ PT2S/1/ , PG/2/ ,TLUD/3/ , DPGO/4/ , DRPMO/5/ , DPG/ 6/ , 

+ DPGSAV/7/ , PG3AV/8/ ,TCVO/9/ 

DATA  TA3X/-20. ,60. ,90. , 1 40./ , TA3Y/3 . ,7.6, 10.8, 20. 3/ 
IF(IENTR)1000, 2000, 3000 
1000  CONTINUE 
DT  ( 1 0 ) - 0 . 

DT( 11)=0. 

DT  ( 1 2 ) = 0 . 

DT  ( 1 3 ) = 2 
DT  ( 1 4 ) = 1 
DT( 15)=7200. 

C 

C INITIALIZATION 

C 

ISW  = 7 
ITER=0 

IF ( D(TFAPU) . EO. 0 . ) D( TFA PU ) = 1 0E6 
DT(  PT2S ) = D(  PT2SO) 

DT(PG)  = D( PGO) 

DT(TLUD)=0. 0 
TG=D( TGO) 

PU=D( PUO) 

ADELT=DELT* 1.0 
V = 1.0 

C 

L(ISW)  = 2 
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6.95.7  (Continued) 

C 

DT(DPGO)  =0.0 
DT(DRPMO)  = 0.0 
DT(TCVO)  = -1.0 
RETURN 

2000  CONTINUE 
RETURN 

3000  CONTINUE 

ITER=ITER+1 

IF(T.EQ.0. 0. OR. T. EQ. TFINAL) GO  TO  201 
IF ( (T-DT(TLUD) ). LT. ADELT* . 99 ) RETURN 
201  DT(  TLfJD)  =T 

L5=L( 2)  +L( 3 ) +17 
N2=LE(L(  1) ,2) 

C N2  - LOCATION  OF  FIRST  DT  VARIABLE  IN  PUriP 

RPt'l=DARRAY ( N 2 ) /D  ( GB  R ) 

C OUTPUT  HORSEPOWER  IS  IN  POSITION  N2+1  OF  DT 

CHP=ITER 
ITER=0 

X=DARRAY(N2+1)/CHP 

CALL  INTERP(X,TABX,TABY, 10,4, Y, I ERR) 

HPHP=X+Y 

***  CONTROLLER 

L(ISW)  = 1 CONTROLLER  ON  (OPENING  TRANSIENT) 

L(ISW)  = 2 CONTROLLER  OFF  (CLOSING  TRANSIENT) 


TEST  FOR  FAILURE  OF  FUEL  PU.-IP 

IF( T. LT. D( TFAPU) ) GO  TO  55 
DT(TCVO)  = t 
V = 0.0 
GO  TO  130 
55  CONTINUE 
LISW=L( ISW) 

GO  TO( 60,70) ,LISW 

CONTROLLER  ON 

60  CONTINUE 

I F ( RPN . LT • U ( R PN H ) ) GO  TO  90 
L(ISW)  = 2 
GO  TO  30 

CONTROLLER  OFF 

70  CONTINUE 

IF( RPN.GE. D( RPNL) ) GO  TO  90 
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6.95.7  (Continued) 


L{  ISW)  = 1 
80  CONTINUE 

DT(TCVO)  = T 
90  CONTINUE 

DTC  = T-DT(TCVO) 

CV  = 1 . 0/EXP{ DTC/ 0.01) 

***  CONTROL  VALVE 

LISW=L( ISW) 

GO  TO( 110,120) , LISW 
110  CONTINUE 

V = 1.0-CV 
GO  TO  130 

120  CONTINUE 

V = CV 
130  CONTINUE 

***  FUEL  PUMP 

EiiDOFP  = 3. 0267E-6*RPll*  V 
DELPFP  = DT( PG)-PU+105. 28 * EM DOF P 
HPF?  = 7.0042E-3*EMDOFP*DELPFP 

***  GEAR  BOX 

XA ( 1 ) = HPHP 
XA(  2)  = RPM 

CALL  LUCUP(  3 , NAGr3  , XGB  , YG‘3  , XA  , HPG3 , 1 E , NEXTR) 

***  GAS  GENERATOR 

PTPG  = DT( PT2S ) /DT ( PG) 

POPTPG  = ( PTPG) **0. 21569 
ZEM  = OT( PG)/SQRT(TG) 

IF ( PTPG. LT. 0. 55)  GO  TO  150 

SUBSONIC  FLOW 

Bi'iDOTG  = 0.046513*ZEM*3QRT(  1 . 0-POPTPG) * ( PTPG**0. 73431) 
GO  TO  160 
150  CONTINUE 

SONIC  FLOW 

EMOOTG  = 0. 01 01 2* ZEM 
160  CONTINUE 

DT(DPG)  = 117. 9 03*TG* ( EMDOF  P-EMDOTG) 

DT(DPGSAV)  = DT(DPGO) 

DT(PGSAV)  =DT( PG) 


oon  o o ono 


6.95.7  (Continued) 

DT(PG)  = DT(  PG)+ADELT*  ( DT(  DPG>)  +DT(  QPGO)  )/2. 0 
DT( DPGO) =DT( DPG) 

***  TURBINE 

TGPOW  = TG* ( 1 . O-POPTPG) 

HAD  = 0. 70856*TGPOW 
CO  = 188. 375*SQRT(TGPOW) 

U = 0. 023998*RPM 
UCO  = U/CO 

— — — — — l 

IF ( DT( PG) • LE.  DT( PT2S ) ) UCO=0.325  ! 

IF(CO.LE.O.O)  000=0.325 

IF(UCO.GT. 0.325)  UCO=0.325  I 


XA ( 1 ) = UCO 
XA( 2)  = DT( PG) 

CALL  LUCUP( 3,L( 2) #D( 17) f 0(L5) , XA , EFF, IE ,NEXTR) 

EXHAUST  DUCT  CONDITIONS  - PRESSURE  AND  TEMPERATURE 

TT20  = TG* ( 1 • 0-EFF ) +EFF*TG*  POPTPG 

DT ( PT2S ) = D(  CEDI ) *EMD0T3*  ( TT20**D(  CED2)  ) +D(  CED3  ) *Ej'IDOTG*EMDOTG  § 
1 * (TT20**D{ CED4 ) ) + ATP RES  | 

IF{DT(PG) ,GE.OT(PT2S) ) GO  TO  190  I 

C DT(DPGO)  = ( DT{ PT2S)-DT( PGSAV) ) *2. 0/ADELT-DT( DPG3AV)  1 

DT ( DPGO ) = ( DT ( PT2S ) -DT ( PGSAV) ) /ADELT  t 

DT ( PG)  = DT( PT2S ) +. 5 | 

130  CONTINUE  | 

DENS  = 1 . 2 1 1 6 5 * DT ( PT  2S ) / TT 2 0 | 

RESTAR  - 7 91 . 94* RPM*DENS  | 

RED  = 0. 8 92 36* RESTAR  | 

CDO(l)  = 1541.89/RED  | 

RTRED  = SQRT(RED)  | 

CDO( 2 ) = 2. 1 34 1/RTRED  f 

CDO( 3 ) = 0. 20017/SQRT( RTRED)  f 

CDO( 4 ) = 0.059832/( RED* *0.20)  | 

CD  = CDO{ 1 ) | 

DO  200  1=2,4  ! 

IF(CDO(I) .GT.CD)  CD=CDO( I ) j 

200  CONTINUE  5 

DF  = 8. 3900E-7*CD*U*U*U*DENS  I 

DR  PM  = 2. 9033E7*  ( 1 . 3432*Ei’iDOTG*HAD*EFF-HPFP-HPG3-DF-HPHP)  /RP;-i  j 

RPM  = RP.l+ADELT*  ( DRPM+DT{  DRPMO)  )/2. 0 J 

DT(DRPMO)  = DRPll  ( 

DT( 10) =HPFP  I 

DT( 1 1 ) =HPG3 
DT( 1 2) =HPHP 
DT(13)=LISW 
DT( 14) =V 
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(Continued) 

DT<15)=FPM/10. 

DARRAY<N2)=RPM*D(G3R) 

DARRAY{ N2+1 ) =0.0 

RETURN 

END 
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6.98  SUBROUTINE  CAD98 


Subroutine  CAD98  is  a dummy  input  subroutine  which  can  be  used  in  the 
place  of  a guidance  and  control  subroutine,  to  input  position  commands  to 
the  SSME  engine  control  (E.C.)  actuators.  Subroutine  CAD98  will  supply 
commands  to  up  to  nine  actuators.  The  number  of  actuators  to  be  used  is 
input  in  1,(10)  . 

The  data  is  inputted  in  a tabular  form,  and  accessed  via  a first  order 
table  lookup  routine.  The  data  input,  described  in  Volume  1,  contains  the 
E.C.  actuator  component  numbers  (L(l)  through  L(9)),  the  number  of  data 
points  in  the  tables  (inputted  as  1,(11)  and  stored  as  L(12))  , and  the  number 
of  actuators  to  be  command  (L(10)). 

Tlie  table  of  time  values,  starts  in  D(l)  and  can  occupy  8 or  more 
spaces  in  groups  of  8,  this  table  is  followed  by  the  table  of  input 
commands  which  is  also  stored  in  groups  of  8. 

6.98.1  MATH  MODEL 
Not  applicable. 

6.98.2  ASSUMPTIONS 
Not  applicable. 

6.98.3  COMPUTATION  METHOD 
SECTION  1000 

The  number  of  data  points  to  be  used  by  the  3U00  section  is  computed. 
The  initial  coutnand  is  calculated. 

SECTION  1500 
None. 

SECTION  2000 
None . 
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SECTION  3000 


Commands  to  be  supplied  to  the  actuators  are  calculated. 

6.98.4  APPROXIMATIONS 
Not  applicable. 

6.98.5  LIMITATION 

No  load  data  is  supplied  to  the  actuators. 

6.98.6  VARIABLES 

Variable  Description 

NCOMP  Component  Number  of  Actuator  to  be  Commanded 

DT(TLUD)  Calculation  Interval 


Dimensions 


SEC 
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6.98.7  Subroutine  Listing 


SUBROUTINE  CAD93  (D,DT,DD,L) 

C ***  REVISED  DECEMBER  1975  *** 

D0U3LE  PRECISION  DD 
INTEGER  TLUD 

COM. ION  NTELPL, NTOLPL , IPT , I POINT , KPTS , I NEL , KNEL,HTOPL, NLPLT (61,3), 
1 PQLEG( 90,12) , LCS( 9 0, 10) ,ILEG(  1400) ,Prt( 90) ,QN(  90) , VSTORE( 6150) 
DIMENSION  D(1),DT(1),DD(1),L(1) 

CO.*ltiON/SUB/PARM(  150,9)  , P:l(  1500)  , Qa(  1 500)  , P(  300)  ,Q(  300)  ,C(  300) 
1,2(300) ,RHO( 20) ,S20RHQ( 20) ,VI3C( 20) ,BULK( 20) ,TEHP( 20) , PVA?( 20) 

2,  ATPRES , T, BELT, TF INAL, PLTDEL, PI , TITLE ( 20) , LEGN , ICON 

3 , KTEi'i  P(  99),  LSTART  (150)  ,NLPT(150)  ,LTYPE(99)  ,NC{99)  ,INX,INZ 

4 , INV,  ISTEP, NLINE, NEL, IND,  I£NTR,riNLINC , HNEL,ilNLEG, i-iNNODE,  MNPLOT 

5 ,  MNLPTS , i-jDS 

COrtilOM  /COM  PD/  XD  ( 4500)  , LX  (1500)  , LEX  (99, 4) 

DATA  TLUD/1/ 

IP  (IE.NTR)  1000,2000,3000 
1000  CONTINUE 

DT( TLUD) =0.0 
N 0=  L ( 10) 

L ( 1 2 ) = 1 
L( 1 3) =1 

DO  1200  J = 1 , N O 
WCOi  i?=L(  T) 

L( 1 2) =L( 1 2) +( L( ll)+7)/R*3 
IF ( NCOi'iP.  GT,  IND)  GO  TO  1500 
1200  XD(  LEY(  NCO.iP,  2)  ) = D(  L(  12)  ) 

RETURN 

1500  CONTINUE 

vJRITt(  5, 1600)  NCO  i ?,  IND 
1600  FOR.IAT ( ?X , 1 4H  CONPONENT  NO,  15, 

1 42H  SHOULD  HAVL  A LOWER  NO  THAN  COMPONENT  NO, 15) 

RETURN 

2000  CONTINUE 
RETURN 

3000  CONTINUE 
J=L( 10) 

IF( (T-OT(TLUD) ) .LT. 0.020)  GO  TO  3300 
7=L( 10) 

DT(TLUD) =T 
3100  L ( 1 2 ) = 1 

DO  3200  1 = 1, ,7 

L( 1 2 ) = L ( 1 2 ) + ( L ( ll)+7)/3*3 

CALL  INTE»P  (T,D(L(  13)  ) ,D(L(  12)  ) ,10,1,(11)  , VALY , ICO) 

MCO,lP=L(  I ) 

3200  XD(  LEX(  ilCOiiP,  2)  )=VALY 
3300  RETURN 
END 
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6.99  SUBROUTINE  CAD99 


CAD99  is  a special  type  of  component  subroutine  whose  purpose  is  to 
provide  the  necessary  interface  between  HYTRAN  and  the  six-degree-of-freedom 
( SDF)  programs.  There  are  two  interface  routines.  CAD99D  is  used  with 
the  SDF  descent  program  and  CAD99A  is  used  with  the  SDF  ascent  program. 

6.99.1  Math  Model 
Not  applicable. 

6.99.2  Assumptions 
Not  applicable. 

6.99.3  Computation  Method 
1000  Section 

The  units  conversions  are  input  in  this  section  and  the  beginning 
address  of  each  actuator  in  the  XD  array  is  computed.  The  SDF  program 
is  called  and  the  HYTRAN  actuator  commands  are  initialized  to  the  required 
trim  positions.  Hinge  moment  slopes  are  initialized  to  zero  and  hinge 
moment  intercepts  are  initialized  to  the  hinge  moments  computed  by  the 
SDF  program.  No  hinge  moment  data  is  available  from  the  SDF  ascent 
program. 

2000  Section 
Not  applicable. 

3000  Section 

This  section  transfers  actuator  and  surface  positions  from  HYTRAN 
to  the  SDF  program  and  it  transfers  actuator  commands  from  SDF  to 
the  HYTRAN  program.  In  addition  hinge  moment  slopes  and  intercepts 
are  computed  from  SDF  decent  data  and  transferred  to  HYTRAN.  Data  is 
transferred  at  flight  control  computation  intervals  (DTFCS) . 
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6.99.4  Approximations 


Not  applicable. 

6.99.5  Limitations 
Not  applicable. 

6.99.6  Variable  Names 


Variable 

XD(BF) 

XD(BF+1) 

XD(BF-HJ) 

XD(BF+4) 

DBI 

DBO 

DTFCS 

DTVEI 

DTVEO 

DTVBF 

DTVR 

DTVSB 

DRESET 

L(l) 

L (2) 

L(3) 

L(4) 

L (5) 

L(6) 

L(7) 


Description 
Body  Flap  Rate  Command 
Body  Flap  Position 
Body  Flap  Hinge  Moment  Intercept 
Body  Flap  Hinge  Moment  Slope 
Inboard  Elevon  Degree  Bias 
Outboard  Elevon  Degree  Bias 
Flight  Control  Computation  Interval 
Inboard  Elevon  Conversion  Factor 
Outboard  Elevon  Conversion  Factor 
Body  Flap  Conversion  Factor 
Rudder  Conversion  Factor 
Speedbrake  Conversion  Factor 
1 =*  reset,  0 = not  reset 
Left  Outboard  Elevon  Component  Number 
Left  Inboard  Elevon  Component  Number 
Right  Outbontd  Elevon  Component  Number 
Right  Inboard  Elevon  Component  Number 
Rudder /Speedbrake  Component  Number 
Body  Flap  Component  Number 
Engine  1 Pitch  TVC  Component  Number 


Dimensions 


deg 

in-lb 

lb 

deg 

deg 

sec 

v/deg 

v/deg 

v/deg 

v/ deg 

v/deg 
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Variable 


Description 


Dimensions 


L(8) 

Engine  1 Yaw  TVC  Component  Number 

— 

L(9) 

Engine  2 Pitch  TVC  Component  Number 

— 

1.(10) 

Engine  2 Yaw  TVC  Component  Number 

— 

1(11) 

Engine  3 Pitch  TVC  Component  Number 

— 

1.(12) 

Engine  3 Yaw  TVC  Component  Number 

— 

XD(LIBE) 

Left  Inboard  Elevon  Command 

V 

XD(LIBE+3) 

Left  Inboard  Elevon  Hinge  Moment  Intercept 

in-lb 

XD (L1BE+4) 

Left  Inboard  Elevon  Hinge  Moment  Slope 

lb 

XD(LIBE+37) 

Left  Inboard  Elevon  Position 

deft 

XD(LOBE) 

Left  Outboard  Elevon  Command 

V 

XD (10BE+3) 

Left  Outboard  Elevon  Hinge  Moment  Intercept 

in-lb 

XD (LOBE+4) 

Left  Outboard  Elevon  Hinge  Moment  Slope 

lb 

XD  (I.OBE+37  ) 

Left  Outboard  Elevon  Position 

deft 

XD (NIP) 

Engine  1 TVC  Pitch  Command 

V 

XD (NIP+37) 

Engine  1 TVC  Pitch  Position 

in 

XD(NIY) 

Engine  1 TVC  Yaw  Command 

V 

XD(NIY+37) 

Engine  l TVC  Yaw  Position 

in 

XD (N2P) 

Engine  2 TVC  Pitch  Command 

V 

XD (N2P+37) 

Engine  2 TVC  Pitch  Position 

in 

XD (N2Y) 

Engine  2 TVC  Yaw  Command 

XD (N2Y+37 ) 

Engine  2 TVC  Yaw  Position 

in 

XD (N3P) 

Engine  3 TVC  Pitch  Command 

V 

XD (N3P+37) 

Engine  3 TVC  Pitch  Position 

i n 

XD (N3Y) 

Engine  3 TVC  Yaw  Command 

V 

XD  (N'JY+37) 

Engine  3 TVC  Yaw  Position 

In 
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Variable 


Description 


Dimension 


XD(RIBE)  Right  Inboard  Elevor  Command  v 

XD(RlBE+3)  Right  Inboard  Elevon  Hinge  Moment  Intercept  in-lb 

XD(RlBE+4)  Right  Inboard  Elevon  Hinge  Moment  Slope  lb 

XD(RlBE+37)  Right  Inboard  Elevon  Position  deg 

RITDEI  Inboard  Elevon  Conversion  Factor  deg/in 

RITDEO  Outboard  Elevon  Conversion  Factor  deg/in 

RITDT  TVC  Actuator  Conversion  Factor  deg/in 

RITVP  TVC  Actuator  Conversion  Factor  (Pitch)  v/in 

RITVY  TVC  Actuator  Conversion  Factor  (Yaw)  v/in 

XD(ROBE)  Right  Outboard  Elevon  Command  v 

XD (ROBE+3)  Right  Outboard  Elevon  Hinge  Moment  Intercept  in-lb 

XD(R0BE+4)  Right  Outboard  Elevon  Hinge  Moment  Slope  lb 

XD (ROBE+37 ) Right  Outboard  Elevon  Position  deg 

XD(RSB)  Rudder  Command  v 

XD(RSB+1)  Speedbrake  Command  v 

XD(RSB+3)  Left  Rudder  Panel  Hinge  Moment  Intercept  in-lb 

XD(RSB+4)  Left  Rudder  Panel  Hinge  Moment  Slope  lb 

XD(RSB+5)  Right  Rudder  Panel  Hinge  Moment  Intercept  in-lb 

XD(RSB+6)  Right  Rudder  Panel  Hinge  Moment  Slope  lb 

XD(RSB+7)  Left  Rudder  Panel  Position  deg 

XD(RSB+8)  Right  Rudder  Panel  Position  deg 

RTD  Radian  to  Degree  Conversion  deg/rad 

TFT  Time  in  Flight  at  Beginning  of  Run  sec 

VBI  Inboard  Elevon  Bias  v 

VBO  Outboard  Elevon  Bias  v 


L 
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n n n n n n n n n n 


6.99.7  Subroutine  Listini 


SUBROUTINE  CAD99  (D,DT,DD,L) 

HYDRAULIC  SYSTEM  TRANSIENT  ANALYSIS  (HYTRAN)  PROGRAM  AND 
SIX  DEGREE  OF  FREEDOM  ASCENT  (SDFASC)  PROGRAM 
COMMUNICATION  ROUTINE 

INTEGER  ROBE , RIBE, RSB , BF 

DECLARATIVE  STATEMENTS  ASSOCIATED  WITH  HYTRAN 


DOUBLE  PRECISION  DD 
DIMENSION  D(l) ,DT(1) ,UD{1) ,L( 1) 

COMMON/SUB/ PA  RM ( 150,9) ,PM(  1500) ,QM(  1500) ,P(  300) ,Q(  300) ,C(  300) 

1,  Z( 300) , RHO( 20) ,S20RHO( 20) ,VI3C( 20) ,BULK(20) ,TEMP( 20) , PVAP( 20) 

2,  ATPRES ,T, DELT,TFINAL, PLTDEL, PI , TITLE ( 20) ,LEGN,ICON 

3,  KTEMP( 99) ,LSTART(150) ,NLPT(150) ,LTYPE(99) ,NC(99) ,INX,INZ 

4,  INV,  ISTEP,NLINE,NEL,IND,  IENTR, MNLINL , flNEL,  MNLEG , MNNODE , MNPLOT 

5 ,  MNLPTS , MDS 

COMMON  /COMPD/  XD(4500) , LX (1500) ,LEX( 99,4) 

DECLARATIVE  STATEMENTS  ASSOCIATED  WITH  SDFASC 

COMMON  /PARRAY/  FC(200) 

EOUI VALENCE 

. ( DTFCS  , FC(  2 ) ) , ( I RESET  ,FC(  6)),(RTD  ,FC(7)) 

. , ( TFT  , FC( 1 ) ) 

C 

IF ( I ENTR)  1000,2000,3000 
1000  CONTINUE 

IRESET  = 1 
TPAST  = T 
OTVEO=l. 173/6. 7246 
V30=7. 61*1. 173/6. 7245 
V3I=7. 538*. 683/3. 92 
DBO=-7 .61 
DBI=-7. 539 
RITDT=B. 499/4. 413 
RITVY=4. 59/4.413 
RITVP=4. 59/5. 449 
DTVEI=. 683/3. 92 
RITDEO=6 .7246 
RITDEI=3 .92 

C** * DETERMINE  THL  LOCATION  OF  THE  ACTUATOR  DT  ARRAYS 
C IN  THE  XD  ARRAY. 

C L( I ) ^COMPONENT  NUM3ER  OF  THE  ACTUATOR 
LOBE=LEX(L( 1) , 2) 

LI3E=LEX(L{ 2) ,2) 

ROBE=LEX ( L{ 3) , 2) 

RIBE=LEX(L( 4) ,2) 

RSB=LEX( L( 5) , 2) 

BF=LEX ( L( 6 ) ,2) 
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6.99.7  (Continued) 


NlP=LEX(L(7) , 2) 

N1Y=LEX{L(8) ,2) 

N2P=LEX(L(9)  ,2) 

N2Y=LEX(L( 10)  ,2) 

N3P=LEX(L(  11)  ,2) 

N3Y=LEX(L( 12)  ,2) 

CALL  SDFASC 
TFOTFT 

CALL  FDUMP(FC, 1,200) 

XD( LOBE) =FC( 140 ) *DTVE0+V30 
XD(LIBE)=FC( 146) *DTVEI+VQI 
XD( ROBE ) =FC( 149 ) *DTVE0+VB0 

XD(RIBE)=FC(147)*DTVEI+VBI 
XD(NIP) =FC( 166) *RITVP/RITDT 
XD(N2P) =FC( 167 ) *RITVP/RITDT 
XD(N3P)=FC{163)*RITVP/RITDT 

XD(N1Y)=FC{  171)  ♦RITVY/RI'l'OT 
XD(N2Y)=FC(172)*RITVY/RITDT 
XD( N3Y) =FC( 173) *RITVY/RITDT 
DT( 1 ) =FC( 186) 

DT( 2)=FC( 185) 

DT( 3)=RITDT*FC( 191) 

DT( 4 ) =RIT0T*FC ( 192) 

DT( 5)=RITDT*FC( 193) 

DT( 6 )=RITDT*FC( 196) 

DT( 7 ) =RITDT*FC( 197 ) 

DT( 8 ) =RITDT*  FC( 198 ) 

DT( 9 ) =FC( 148) 

DT( 10) =FC( 146) 

DT( 11)=FC( 149) 

DT( 12) =FC( 147) 

DT( 13 ) =FC( 166) 

DT( 14 ) =FC( 167) * 

DT( 15)=FC( 153) 

DT( 16 ) =FC( 171) 

DT( 17 ) =FC( 172) 

DT( 19 ) =FC( 173) 

DT( 19 ) =FC (71) *RTD 
DT( 20)=FC( 72) *RTD 
DT( 21)=FC{ 79) *RTD 
DT( 22)=FC(80)*PTD 
DT( 23) =FC( 81 ) *RT0 
DT( 24) =FC( 181) 

DT( 25) =FC( 132) 

RETURN 

2000  CONTINUE 
RETURN 

3000  CONTINUE 

IRESET  = 0 

C***INTERFACE  PARAMETERS  TO  BE  TRANSFERRED  TO  SDFASC 
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6.99.7  (Continued) 


C***TVC  POSITIONS 

FC( 166) =XD(N1 P+37 ) *RITDT 
FC( 167) —XD( N2P+37 ) *RITDT 
FC( 168)=XD(N3P+37)*RITDT 
FC( 171)=XD(N1Y+37)*RITDT 
FC ( 172)=XD(N2Y+37)*  RITDT 
FC( 173)=XD(N3Y+37) *RITDT 
C***ELEVON  POSITIONS 

FC ( 148)=XD( LOSE+37) *RITDEO+DBO 
FC ( 146)=XD{LI3£+37)*RITDEI+DBI 
FC( 1 49 ) =XD( R03E+37 ) *RITDEO+DBO 
FC( 147)=XD(RI3E+37)*RITQEI+DBI 
IF ( { T-TPA3T) . LT. DTFCS ) GO  TO  3200 
TPAST=T 
TFT=T+TFO 
CALL  SDFASC 

C***INTERFACE  PARAMETERS  TO  BE  TRANSFERRED  TO  HYTRAN 
C***TVC  COMMANDS 

XD( NIP) =FC( 191) *RITVP 
XD(N2P)=FC( 192) *RITVP 
XD(N3P)=FC( 193) *RITVP 
XD(NlY) =FC( 196) *RITVY 
XD(N2Y)=FC(197) *RITVY 
XD( N3Y) =FC( 198) *RITVY 
C***ELEVON  COMMANDS 

XD ( LOBE  )=FC(  186  )'*DTVLO+VBO 
XD( LIBE) =FC( 185) *DTVEI+V3I 
XD( ROBE )=FC( 186) *DTVEO+VBO 
XD( RI3E)=FC( 185) *DTVEI+V3I 
C***RS3  & 3F  CinDS. 

XD( RSB ) =0 . 0 
XD( RS3+1 ) =0 . 0 
XD( BF) =0. 0 

C*  * *ELEV.  OUTBOARD  CMOS. 

DT( 1 ) =FC( 136) 

C***ELEV.  INBOARD  CUDS. 

DT( 2)=FC( 195) 

C***TVC  PITCH  CUDS. 

DT( 3)=RITDT*FC( 191) 

DT ( 4 ) =R ITDT*  FC ( 192) 

DT( 5)=RITDT*FC( 193) 

C***TVC  YAW  CUDS. 

DT( 6 ) =RITDT*FC ( 196) 

DT( 7 ) =RITDT*FC( 197) 

DT( 8 ) =RITDT*FC ( 198) 

CALL  FDIJUP(FC,  1,  200) 

3200  CONTINUE 

C***£LEV.  POS.  LO,LI,RO,RI 
DT( 9 ) =FC( 143) 
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c_>  u 
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(Continued) 


DT( 10)=FC(  146) 
DT{11)=FC{ 149) 

DT( 12) =FC( 147) 
C***TVC  PITCH  POS. 

DT{ 13)=FC< 166) 

DT( 14) =FC( 167) 

DT( 15) =FC( 168) 
C***TVC  YAW  POS. 

DT(16)=FC{171) 

DT( 17)=FC( 172) 

DT( 1S)=FC( 173) 
C*** ALPHA 

DT( 19 ) =FC( 7 1 ) *RTD 
C*  **BETA 

DT( 20) =FC( 72) *RTD 
C***BODY  RATES 

DT(21)=FC(79) *RTD 
DT( 22) =FC( 80) *RTD 
DT(23)=FC(31)*RTO 
C***BODY  ACCELERATIONS 
DT( 24) =FC( 181) 

DT( 25) =FC( 132) 


RETURN 

END 
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(Continued) 


SUBROUTINE  CAD99  (D,DT,DD,L) 
r 

C HYDRAULIC  SYSTEM  TRANSIENT  ANALYSIS  (HYTRAN)  PROGRAM  AND 
C SIX  DEGREE  OF  FREEDOM  DESCENT  ( SDFDES ) PROGRAM 
C COMMUNICATION  ROUTINE 

INTEGER  ROBE/ RI3E,RSB,3F 
C 

C DECLARATIVE  STATEMENTS  ASSOCIATED  WITH  HYTRAN  .. 

C 

DOUBLE  PRECISION  DO 

DIMENSION  D( 1) ,DT( 26) ,DD{ 1) ,L( 6) 

COMMON/SUB/ PARM ( 150/9) ,PM(  1500) ,QM(  1500) ,P(  300) ,0(  300) ,C( 300) 

1 / Z ( 300) / RHO( 20) / S20RHO( 20) , VI SC ( 20) , BULK ( 20) ,TE«-lP( 20) ,PVAP( 20) 

2,  ATPRES/T/ DELT/TFINAL, PLTDEL, PI , TITLE ( 20) , LEGN , ICON 

3, KTEMP( 99) / LSTART( 150) ,NLPT( 150) ,LTYP£(99) ,NC( 99) ,INX,INZ 
4/INV/ISTEP/NLINE/NEL, IND,IENTR,MNLINE,MNEL,MNLEG,mNNODE,MNPLOT 
5/MNLPTS/MDS 

COMMON  /COMPD/  XD( 4500) , LX( 1500) ,LLX( 99, 4 ) 

C 

C DECLARATIVE  STATEMENTS  ASSOCIATED  WITH  SDFDES 
C 

COMMON  /FARRAY/  FC(200) 

EQUIVALENCE 

. ( DTFCS  / FC ( 2)), (I  RESET  ,FC{  6))f(RTD  ,FC(7)) 

. ,(TFT  / FC( 1 ) ) 

C 

IF(IENTR)  1000,2000,3000 
1000  CONTINUE 

I RESET  = 1 

TPA3T  = T 

DTVLO-1. 173/6.7246 

DTVEI=. 683/3. 92 

RITDEO=6. 7246 

VBO=7. 61*1. 173/6. 7246 

V3I=7. 538*. 633/3.92 

DBO=-7 . 6 1 

DBI=-7 .538 

RITDEI=3 .92 

DTVR=. 134 

DTVS3=. 0937 

DTV3F= . 13 

C***DETERMINE  THE  LOCATION  OF  THE  ACTUATOR  DT  ARRAYS 
C IN  THE  XD  ARRAY. 

C L( I ) ^COMPONENT  NUMBER  OF  THE  ACTUATOR 
LOBE=LEX(L( 1) , 2) 

LI3E=LEX( L( 2) ,2) 

ROBE=LEX(L( 3) ,2) 

RIBE=LEX( L( 4) ,2) 

RSB=LEX(L( 5) ,2) 

BF=LEX( L( 6 ) ,2) 
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6.99.7  (Continued) 

CALL  SDFDES 
TFO=TFT 

CALL  FDUilP(  FC/  1, 200) 

C*** INITIALIZE  COMMANDS 

XD( LOBE) =FC( 172) *DTVE0+V30 
XD( LI3E) =FC( 172) *DTVEI+V3I 
XD( ROBE) =FC( 171 ) *DTVEO+VBO 
XD(RI3E)=FC(171)*DTVEI+V3I 
XD( RSB) =FC( 174)*  DT VR 
XD( RSB+1 )=FC(173) *DTVS3 
XD( BF) =0.0 
XD{ 3F+1 ) =FC(  144) 
C***INITIALIZE  H.M. 

XD( LOSE+3 ) =FC(  132) 

XD( LIBE+3 ) =FC( 130) 

XD( ROBE+3 ) =FC{ 133 ) 

XD( RI3E+3 )=FC( 131) 

XD( LOBE+4 ) =0. 0 
XD( LIBE+4 ) =0. 0 
XD( R03E+4 ) =0. 0 
XD( RI3E+4 ) =0. 0 
XD( RSB+3 ) =FC( 126) 

XD{ RS3+5)=FC( 127) 

XD( RS3+4 ) =0 . 0 
X0( RSB+6 ) =0 . 0 
XD(3F+3)=FC( 134) 

XD( 3F+4 ) =0. 0 
DT( 1)*FC( 172) 

DT( 2) =FC( 171) 

DT( 3 ) =FC( 148) 

DT( 4)=FC{ 146) 

DT( 5)=FC( 149) 

DT( 6 ) =FC( 147) 

DT( 7 ) =FC( 174) 

DT( 8 ) =FC( 173) 

DT( 11)=FC( 169) 
DT(13)=FC(71)*RTO 
DT(14)=FC(72) *RTO 
DT(15)=FC(79)*RTD 
DT( 16)=FC( 80) *R?D 
OT( 17)=FC( 81) *RTD 
DT( 19)=FC( 193) 

OT( 19 ) =FC( 194) 

DT( 9 ) =FC( 136) 

DT( 1 0) =FC( 137) 

DT( 1 2) =FC( 143) 

DT( 1 3 ) =FC(  145) 

DT( 19)=FC( 144) 

DT( 20)=FC( 126) 

DT( 21) =FC( 127) 
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6.99.7  (Continued) 


DT( 22) =FC( 134) 

DT( 23) =FC( 132) 

PT( 24) =FC( 130) 

DT( 25) =FC( 133) 

DT( 26) =FC( 131) 

RETURN 

2000  CONTINUE 
RETURN 

3000  CONTINUE 

IRESET  = 0 

C*** INTERFACE  PARAMETERS  TO  3E  TRANSFERRED  TO  SDFDES 
C***EL£VON  POSITIONS 

FC( 148)=XD(LOBE+37) * RITDEO+DBO 
FC ( 146)=XD( LIBE+37) *RITDEI+DBI 
FC ( 149)=XD(ROBE+37) * RITDEO+DBO 
FC ( 1 47 ) -XD{ RI3E+37) *RITDEI+DBI 
FC  ( 195)=.25*(FC( 146)+FC( 147)+Fl( i4R)+FC( 149) ) 
C***RUDDER/SB  POSITIONS 

FC ( 1 4 3 ) = ( XD( RSR  + 7 ) +XD( RSB+8 ) )/2. 

FC  ( 1 4 5 ) =- { XD( RSB+8 )-XD(RSB+7)  ) 

C***BODYFLAP  POSITION 
FC ( 1 4 4 ) =XD( BF  + 1 ) 

IF ( ( T-TPAST) . LT. DTFCS ) CO  TO  3200 

TPAST=T 

TFT=T+TFO 

CALL  SDFDES 

C***  INTERFACE  PARAMETERS  TO  BE  TRANSFERRED  TO  HYTRAN 

C*  * * ELEVON  COMMANDS 

XD ( LOBE ) =FC ( 172) *DTVEO+VBO 
XD( LIBE ) =FC ( 17  2)*  DTVt I + VBI 
XD ( ROBE ) =FC ( 171) *DTVEO+VBO 
XD ( RISE ) =FC ( 171)*  DTVE I+V3 1 
C*  * * ELL  VON  HINGE;  MOMENT  INTERCEPTS 

XD(  L03E+  3 ) =FC ( 132)-FC(  1 05 ) * R ITDEO* XD ( LO’3E+ 3 7 ) 
XD(  LI'BE+3  ) =FC(  130)-FC(  103)  *RITOEI*XD(  LIBE+37) 
XD( R03E  + 3 ) =FC ( I 3 3 ) -FC ( 106) *RITDEO*XD( ROBE+3  7 ) 
XD( RIBE+3)=FC{ 131) -FC( 1 0 1 ) *RITDEI* XD ( RI3E+37 ) 
C*  * *ELEVON  H.i'i.  SLOPES 

XD( LOBE+4 )=FC( 105) *R ITDEO 
XD(LIBE+4)=FC( 103>*RITDEI 
XD( ROBE+4 ) =FC( 106) * R ITDEO 
XD ( RIBE+4 ) =FC( 104) *RITDEI 
C * * * R U D DE  R COMMAND 

XD ( RSI? ) =FC ( 17  4)  * DTVR 
C* * *SB  COMMAND 

XD( RSB  + 1 ) =FC( 17  3)*  DTVS3 
C***RUDDER/SB  H.M.  INTERCEPTS  ( LEFT) ,( RIGHT , 

XD ( RSB+3 )=FC( 126)-XD(RSB+7)*FC( 107) 

XD( RSB+5 ) =FC( 1 27 )-XD( RSB+3 )*FC( 108) 
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6.99.7  (Continued) 


C* * * RUDDER/ SB  H.i'i.  SLOPES  ( LEFT) ,( RIGHT) 
XD ( RSB+4 ) = FC  ( 107) 

XD( RSB+6 ) = FC{ 108) 

C***BODYFLAP  RATE  COMMAND 
XD(BF)=FC( 169) 

C***d3DYFLAP  H.i'l.  INTERCEPT 

XD( BF+3 ) =FC( 134) -XD( BF+1 ) *FC( 109) 
C***BODYFLAP  H.rt.  SLOPE 
XD( BF  + 4 ) = FC( 109) 

C***ELEV.  CMD.  L, R 
DT ( 1 ) =FC ( 172) 

DT(2)»FC(171) 

C***RUD.  CMD. 

DT( 7 ) =FC( 174) 

C***33  CMD. 

DT( 8 ) =FC( 173) 

C***BF  RATE  CMD. 

DT( 11)=FC( 169) 

FC (111) =XD ( LOB  E + 3 ) 

FC ( 112)=XD(LI3E+3) 

FC( 113) =XD(ROBE+3) 

FC( 114)=XD(RI3E+3) 

FC ( 1 1 5 ) =XD ( RSB+3 ) 

FC( 116)=XD(RSB+5) 

FC( 117)=XD(BF+3) 

FC ( 113) =XD{ LOBE+68 ) 

FC( 119)=XD(LIBE+68) 

CALL  FDU.iP(  FC,  1, 20  0) 

3200  CONTINUE 

C***LLEV.  POS.  LO,LI,RO,RI 
DT( 3)=FC( 148) 

DT( 4 ) =FC( 146) 

DT{ 8 ) =FC( 149) 

DT( 6 ) =FC( 147) 

DT(13)»FC(  71) *RTD 
DT( 14)=FC(  72) * RTD 
DT ( 1 5 ) =FC ( 79) * RTD 
DT( 16) =FC ( 80) *RTD 
DT( 17)=FC( 81) *RTD 
DT ( 9 ) =FC( ‘ 36) 

DT( 1 0 ) =FC ( 137) 

DT (12) -FC (143) 

DT{18)=FC(  145) 

DT( 19 )=FC( 144) 

DT( 20)=FC( 126) 

DT{  21 ) =FC(  3.27) 

DT( 2 2) =FC  (134) 

DT( 2 3) =FC  ( 132) 

DT( 2 4 ) =FC  ( 130) 

DT( 25)=FC( 133) 
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o n 


6.99.7  (Continued) 

DT( 26) =FC( 131) 

RETURN 
END 
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6.101  SUBROUTINE  ACTIO 1 


This  subroutine  models  a simple  servo  actuator  with  a mechanical  input  to 
the  servo  valve, which  operates  open  loop,  without  feedback. 

A time  history  of  valve  position  is  inputed  and  a first  order  or 
straight  line  interpolation  is  used  between  the  input  points. 

The  valve  is  assumed  to  be  a linear  square  port  configuration,  with 
zero  lap.  The  width  of  each  port  slot  is  inputed  independently,  to  allow  the 
valve  areas  to  be  matched  to  the  actuator  piston  areas. 

The  initial  actuator  position  it:  inputed,  together  with  the  external 
loads  at  the  fully  retracted  and  extended  stroke  positions.  The  load  stroke 
curve  is  assumed  to  be  linear  between  these  positions. 

The  steady  state  balancing  system  uses  the  load  at  the  initial  position 
to  determine  the  pressure  drop  across  the  piston.  The  effects  of  atmospheric 
pressure  is  incorporated  into  the  load. 

6 , 101 . 1 Math  Model 

The  math  model  can  be  divided  into  two  sections,  the  flow  calculations 
and  the  integral  calculations. 

The  flow  calculations  are  based  on  a combination  of  the  line  equations 
valve  orifice  equations,  and  the  volumeric  impedance. 

The  sign  convention  used  is,  flows  into  the  actuator  cavities  (Ql) , and 
(02)  are  4ve,  which  is  the  same  as  the  line  convention.  The  flows  are  cal- 
culated using  the  general  formulae 

FLOW  - (SORT (FN2**2+4*FNl*ABS  (C  -PT))-FN2)/2,0 

where  FNl  - (XV*VK)**2 
FN2  - FN1*Z 
XV  - Valve  Position 

VK  - W*SQKT(2/RH0 (IT) )*. 65*81ot  width 
Z - LJ  e Characteristic  Impedance  + Volumetric  Impedance 
C “ Line  Characteristic  Pressure 
FT  ■ Chamber  volumetric  pressure 
IT  ■ Fluid  Temperature/Preesure  Indication 
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where  the  volumetric  impedance  ZV1  - DT(OULK}/(D(VOL1)+D(AREA1)*DT(PX)) 
and  the  chamber  volumetric  pressure. 

PT  - DT(PP1)-DT(VEL)*D(AREA1)*ZV1 

The  actuator  velocity  is  calculated  using  the  equivalent  network,  given  in 
Figure  6.101-2. 

The  two  flowa  DT(Q1)  and  DT(Q2)  are  calculated  using  the  value  orifice 
equations  and  predicted  actuator  pressures  PT(PPIP)  and  DT(PP2P) . 

The  network  is  solved  for  piston  velocity  DT (VEL) . The  damping  term 
includes  an  inertia  term  which  accounts  for  the  load  required  to  change  the 
velocity  during  the  time  step  DELT . 

A load  due  the  old  or  previous  velocity  is  included  with  the  actuator  load 

term. 

The  network  solution  takes 'into  account  the  volumetric  effect  of  the 
two  actuator  cavities.  The  assumption  is  that  a portion  of  the  flow  is  lost 
too  or  obtained  from  these  volumes  due  to  changes  in  pressure  within  the 
cavities. 

The  basis  network  equations  are:  - 
VELO-DT(VEL)  - (OLD  VELOCITY) 

DT(VEL)*D(^teAl)  - DT(Q1)  + <irj(PPl)-Pl)*(;vi  (1) 

I 

DT (VEL)*D(AREA2)  - -DT(Q2)-(DT(PP2)-P2)*GV2  (2) 

DT (VEL)*D(KDAMP)  “ P1*D(AREA1)-P2*D(AREA2)  - DP+VEL0*DT (INERT)  (3) 

where 

DP  * External  Load 

- DT(L0 ADZ) +DT(PX)*DT (LOADS) 

+ DT(LOADKX) 

The  atmospheric  load  is  kept  separate  to  allow  time  varying  computations  of 
values  for  DT  (LOAD/. ) AND  DT  (LOADS)  to  be  added  later. 
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Equations  (1),  (2)  and  (3)  are  combined  to  eliminate  PI  and  P2,  giving 
the  solution  in  the  listing. 

6.101.2  Assumptions 

;| 

It  was  intended  that  this  particular  subroutine,  should  be  kept  as  | 

simple  as  possible,  hence  a number  of  relatively  important  actuator  •' 

characteristics  have  not  been  included  in  the  model.  ‘ 

I 

Those  ommited  are  cross  piston  leakage,  static  and  dynamic  seal  friction, 
volumetric  expansion  of  the  actuator  cavity,  external  load  spring  mass 

i 

characteristics,  valve  leakage  and  neutral  gain  characteristics,  and  cavita-  '■ 

tion  effects,  within  the  actuator  cavity.  j 

This  model  fills  the  need  for  a simple  actuator  model  to  act  as  a system  j 

load  where  the  detailed  dynamics  of  the  actuator  are  of  no  particular  concern.  1 

6.101.3  Computation 

Section  1000 

The  external  load  input  data  is  modified  by  calculating  the  load  dis- 

. •» 

i placement  curve,  and  adding  the  force  due  to  atmospheric  pressure. 

Finally,  the  valve  impedances,  and  the  location  of  the  node,  are  cal- 
culated for  the  steady  state  valve  position,  for  use  in  the  steady  state 
section. 

The  cavity  pressures  and  piston  velocity  were  initialized  in  the 
steady  state  section. 


Section  1500 


This  section  is  called  from  LEGCAL  via  COMPE  for  each  connection 
number  for  each  iteration.  (I.NEL,  7)  - 5 requires  calls  to  be  made  for 
each  iteration  because  the  overboard  flow  and  pressure  drop  across  the  piston 
head  vary  with  the  flow  into  the  actuator  and  the  pressure  in  the  piston 
cavity . 

One  of  the  cavities  is  required  to  be  a system  node.  Which  cavity 
it  is  depends  on  the  valve  position  at  time  aero. 

If  NODE  - 1 it  is  in  //I  cavity,  if  NODE  ■ 2 it  is  in  #2  cavity. 

The  steady  state  section  is  complicated  by  the  need  to  determine 
if  the  actuator  is  at  its  stroke  limits,  and  if  the  flow  guess  is 
taking  it  toward  or  away  from  the  limit. 

When  it  is  at  its  limits,  and  is  being  driven  into  the  limit, 
a high  impedance  is  added  into  the  leg  (ZQ  - 40000.),  and  the  overboard 
flow  1b  set  to  zero.  (Overboard  flow  is  a displacement  flow  due  to  unequal 
areas) . 

The  steady  state  calculation  set  up  requires  that  :onnection  ill 
must  be  the  last  or  only  element  in  the  upstream  leg.  and  connection  //2 
is  the  first  element  in  the  downstream  leg. 

The  upstream  leg  flow  is  used  to  calculate  the  overboard  flow 
and  piston  velocity.  If  the  valve  is  closed  the  overboard  flow  is  set 
to  zero . 

For  the  upstream  leg  the  valve  impedance  DT(PPIP)  is  added  into 
PQLEG(INEI, ,3) . For  the  downstream  leg,  the  valve  impedance  PT(PP2P)  is 
added  into  PQLEG(INEL,8) , ZQ  is  added  into  PQLEG (INEL,6)  and  the  constant 
pressure  drop  DELTP  across  the  piston  is  subtracted  from  FQLEG(INEL,5)  or 
added  if  it  is  a pressure  rise. 
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Section  3000 


This  section  calculates  the  transient  response  of  the  actuator  using  an 
integration  step  size  of  DELT. 

INTERP  is  called  to  obtain  an  interpolated  value  of  valve  position  XV. 

With  this  value  of  XV,  the  flows  into  the  actuator  chambers  are  calculated. 

If  XV  is  zero,  the  flows  are  set  to  zero.  For  XV  >0,  Q1  is  the  flow 
from  connection  #1  to  chamber  #1,  and  Q2  the  flow  from  chamber  '2  to  connection 
//2.  For  XV<0  the  flows  are  reversed. 

A common  formulae  is  used  to  calculate.  FLOW  with  a computer  go  to,  to 
branch  back,  with  ICA1.C  acting  as  the  branch  indicator. 

With  Q1  and  Q2  calculated  the  next  section  calculates  the  value  of 
DT(PPl)  and  DT(PP2)  and  the  velocity  of  the  piston. 

The  piston  velocity  is  calculated  by  summing  the  forces  acting  on  it 
and  dividing  by  the  mass  plus  the  damping  coefficients. 

A check  is  then  made  to  see  if  the  piston  is  at  a stroke  limit.  If  it 
is,  the  velocity  is  set  to  zero  if  it  is  in  the  limit  direction. 

The  pressures  are  calculated  by  taking  the  sum  of  the  flows  into 
the  cavity,  including  the  piston  velocity  and  multiplying  by  DT(KBULK)  cavity 
volume. 
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6.101.4  Approximations  - To  be  added  later. 

6 . 101 . 5 Limitations 

The  straight  line  flow  characteristics  of  the  valve  and  the  straight 
line  load  characteristics  limit  the  applicability  of  this  subroutine  to  a 
rather  rudimentary  type  of  actuator,  it  can  however  be  used  to  generate 
waterhammer  transients  due  to  rapidly  closing  valve  motion,  with  the 
advantage  of  a good  simulation  of  the  actuator  cavity  pressure  response. 

6.101.6  Varlab le  Names 


VARIABLE 

DESCRIPTION 

DIMENSIONS 

D(AREAl) 

II 1 piston  area 

IN**  2 

D(AKEA2) 

II 2 piston  area 

IN**  2 

CCL1) 

Connection  111  line  characteristic 

PSI 

C(L2) 

Connection  II 2 line  characteristic 

PSI 

D(DAMH) 

Piston  damping  factor 

LBS/SEC/IN 

DT(DELTP) 

Pressure  drop  across  piston 

PSI 

FLOW 

Temporary  value  of  line  flow 

CIS 

FN1 

Temporary  variable 

— 

FN2 

Temporury  variable 

— 

DT (FORCE) 

Load  at  maximum  stroke 

LBS 

ICALC 

Calculation  counter 

— 

GV1 

Conductance  of  Vol  1 

crs/psi 

GV2 

Conductance  of  Vol  2 

CIS/PSI 

DT (INERT) 

Load  Inertia 

LB  SEC/IN 

IN  2 

Interpolation  indicator  returned 
f ram  1NTERP 

— 

D(INPOS) 

Initial  actuator  position 

IN 

DT(KBULK) 

Oil  hulk  modulus  times  /VI 

PST*SEC 
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6.101.6  Variable  Names  (cont'd) 
VARIABLE 


DESCRIPTION 


DIMENSIONS 


DT(KDAMP) 

L(IY) 

DT (LOADS) 

DT(LOADZ) 

DT (LOAD EX) 

LI 

L2 

N 

D (MASS) 

D (MINST) 
D(MAXST) 
D(M1NL) 

D (MAXL,) 
DT(NCAV) 
L(NODE) 
L(NTAB) 

DT (PFORCE) 

DT(PPI) 

DT(PP2) 

DT(PPIP) 

DI(PP2P) 

DT(PX) 

QA 

DT(Q1) 

DT(Q2) 


Damping  factor 

Address  of  first  value  in  valve  position 
table 

Load  slope 
Load  at  zero  stroke 
External  load 
Dummy  variable 
.ummy  variable 
Integer  counter 
Load  mass 

Minimum  actuator  stroke 
Maximum  actuator  stroke 
Load  - actuator  fully  retracted 
Load  - actuator  fully  extended 
. Flow  for  cavitation  volume 
Node  location  indicator 
Number  of  points  in  time  table 
External  actuator  load 
Pressure  in  #1  cavity) 
ssure  in  #2  cavity 
Predicted  pressure  in  ill  cavity 
Predicted  pressure  in  #2  cavity 
Predicted  piston  position 
Leg  flow  in  steady  state  section 
Flow  into  cavity  #1 
Flow  out  of  cavity  It 2 


LB/ SEC /IN 


LB/IN 

LBS 

LBS 


LB  SEC2/1N 

IN 

IN 

LBS 

LBS 

CIS 


LBS 

PSI 

PSI 

PSI 

PSI 

IN 

CIS 

CIS 
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CIS 


6.101.6  Variable  Names  (cont'd) 


VARIABLE 

DESCRIPTION 

DIMENSIONS 

QS 

Flow  sign 

— 

D(SLOTWl) 

Sloth  width  Vol  //I  to  Con  #1 

IN 

D(SLOTW2) 

Sloth  width  Vol  #1  to  Con  #2 

IN 

D(SL0'fW3) 

Sloth  width  Vol  #2  to  Con  //I 

IN 

D(SL0THW4) 

Sloth  width  Vol  #2  to  Con  #2 

IN 

DT(VEL) 

Actuator  Velocity 

IN/SEC 

VELO 

Previous  actuator  velocity 

IN/SEC 

VK 

Temporary  value  of  SLQTW 

IN 

D(V0L1) 

Minimum  volume  cf  cavity  It 1 

IN**3 

D (VOL2) 

Maximum  volume  of  cavity  #2 

IN**3 

DT  (X  ) 

Piston  position 

IN 

XV 

Valve  position 

IN 

ZQ 

Cross  piston  leakage  impedance 

PSI/CIS 

ZT 

Temporary  value  of  line  impedance 

— 

ZVl 

CON  #1  valve  impedance 

PSI/CIS**2 

ZV2 

CON  It 2 valve  impedance 

PSI/CIS**2 
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6.101.7  Subroutine  Listing 


SUBROUTINE  ACT101  <D,DT,DO,L) 

C * ** REVISED  JUNE  1976  **** 

DOUBLE  PRECISION  DD 

DIMENSION  D( 32) , DT( 18) , DD( 1) ,L( 12) 

COMMON  NTELPL,NTOLPL, IPT, I POINT, NPTS , INEL, KNLL, NTOPL, NLPLT ( 61, 3) , 
1 PQLEG( 90, 12) , LCS ( 90, 10 ) , ILEG(1400) , PN{ 90) , QM ( 90 ) 

COMMON/SUB/PARm(  150,9)  , Pi-l(  1500)  ,QM(  1500)  ,P(  300)  ,Q(  300)  ,C(  300) 

1,2(  300) , R H O ( 20) ,S20RH0( 20)  ,VISC( 20) ,3ULK( 20) ,TEmP( 20) , PVAP( 20) 

2,  ATPRES,T, DELT , TPINAL, PLTDEL, PI , TITLE ( 20) , LEGN , ICON 

3, KTEHP( 99) , LSTART ( 150) ,NLPT( 150) , LTYPE(99) ,NC( 99) ,INX, INZ 

4, INV, I3TEP,N LINE, MEL, IND, IENTR, MNLINE , MNEL, MN LEG , llNNODE , MN PLOT 
5 , MNLPTS , MDS 

INTEGER  AREA  1, AREA 2, VOLl , VOL2, SLOTWl , SLOTW2 
1 , SLOTW3 , SLOTW 4 , DAMP , X , PFORCE , FORCE , PP1P,  PP2P 
2, PP1,PP2,Q1,Q2,VEL,PX 
C D ARRAY  VARIABLES 

DATA  AREAl/1/ , AREA2/2/ , VOLl/ 3/ , VOL2/4/ , MINST/ 5/ , MAXST/S/ , 

1 DAM  P/ 7/ , MASS/ 8/ , S LOTW 1/ 9/ , S LOTW 2/ 1 0/ , S LOTW  3/ 1 1/ , S LOTW 4/1 2/ , 

2 M I N L/ 1 3/  , wA  XL/ 1 4/  , I NPOS/ 1 5/ 

C L ARRAY  VARIABLES 

DATA  NTA3/5/, I Y/6/, NODE/7/ 

C DT  ARRAY  VARIABLES 

DATA  X/l/ , VEL/2/, LOADZ/3/, LOADS/ 4/ , PPl/5/, PP2/6/ , 

].  Ql/7/  , Q2/0./ , K3ULK/9/  ,NCAV/1 0/  , PP1  P/1 1/  , PP2P/1  2/  , 

2 PFORCE/ 1 3/ , FORCE/ 1 4/ , K DAMP/ 15/ , PX/1 6/ , INERT/ 1 7/ , LOADEX/ 1 8/ 

C 

IF (IENTR)  1000,2000,3000 
C ***  1000  SECTION 
1000  CONTINUE 

IF ( INLL.NE. 0)GO  TO  1500 
C ACTUATOR  PARAMETER  INPUT 

D( SLOTW1 ) -D( SLOTW 1 ) * 0 • 6 5*S  2QRHO( KTLMP( IND) ) 

D( SLOTW2 ) =D( SLOTW 2 ) * 0 . 5 5*S  20RHO( KTLwP(IND) ) 

D ( S LOTW 3 ) = D ( S LOTW  3 ) * 0 . 6 5*S  20RHO ( KTLM P( IND)) 

D ( S LOTW" 4 ) = D ( S LOTW  4 ) * 0 . 6 5 * S 20R 110  ( KTLM  P ( I NO ) ) 

DT  ( LOADS  ) = ( D ( MAXL ) - D ( i-i I N L ) ) / { D ( MAXST ) -D(  Ml  NST ) ) 

DT{  LOADZ  ) =D(  MAXI.)-DT(  LOADS  ) * D ( MAXST) 

DT (FORCE ) -DT ( LOADZ ) +DT( LOADS ) *D ( I NPOS ) 

DT ( LOADEX) =ATPKES* ( D(  AREA1 ) -D( ARLA2)  ) 

DT( INERT )=D( MASS) /DELT 
DT  ( KDAi'iP)  = D(  DAMP)  +DT(  INERT) 

DT ( X ) - D ( I NPOS) 

DT  ( KBIJLK)  =BULK  ( KTEMP(  IND)  ) * DELT 
DELT02=DLLT/ 2 . 0 
L( NTAB ) =L( 12) 

L( I Y ) = ( L( NTAB) +7 ) /8 
L( IY) =17+L( IY) *8 
L ( NODE ) = 1 
XV=D ( L ( IY) ) 

DT ( NCAV) =1.0 
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6.101.7  (Continued) 

DT(  PFORCE) =DT( FORCE ) /D  ( AREA2) 
IF ( XV)  60,70,80 

60  DT ( PP1P) =l/( D( SLOTW 2) *XV) **2 
DT( PP2P)=1/(D( SLOTW 3 ) *XV) **2 
L( NODE ) =2 

DT ( PFORCE  )=DT(  FORCE  )/D(  AREA1) 
GO  TO  90 

70  DT{ PP1P ) ~4  00  000 . 

DT( PP2P) =400000. 

DT( NCAV) =0.0 
GO  TO  90 

80  DT(  PPlP)-l/{  D(  SLOTVJl)  *XV)  **2 
DT( PP2P) =l/( D( SLOTW 4) *XV) **2 
90  RETURN 


* * * 
1500 


1550 


1600 

1650 

1700 


1750 


1800 


1500  SECTION 


THE  STEADY  STATE  SECTION 
CONTINUE 


QA=PQLEG( INEL, 1) 
QS=POLEG( IMLL, 2 ) 
LCS  ( INEL, 7 ) = 5 
IF ( KNLL . EG. 2 ) GO 
IF( KNEL.NE. 1)  GO 
IF ( L ( NODE ) .EQ.2) 
20=0.0 

N = LCS( I MEL, 3) 

IF ( DT{ X ) .GT.0.0) 
IF ( QS . GT. 0 . 0 ) GO 
ON ( N ) =0 . 0 
20=10000. 


TO  1750 
TO  1900 
DS=-OS 


GO  TO  1600 
TO  1650 


IF ( L( NODE ) . EQ. 1 ) GO  TO  1700 

OS=-QS 

GO  TO  1850 

I F ( DT ( X ) . LT . D ( A AXS T ) ) GO  TO  1650 
IF ( OS . GT. 0.0)  GO  TO  1550 
IF ( L{ NODE ) . LQ. 2)  GO  TO  1800 

ON ( N ) =-DT( NCAV) *OA*OS* ( D( ARLA1 ) -D( AREA2 ) ) /D( ARLAl ) 

DT ( PFORCE )=( DT ( FORCE ) -PN ( N ) * ( D( AREA1 ) -U( ARE A 2 ) ) )/u( AkLA2) 

DT ( P PI ) =PN ( N ) 

DT(  PP2) =PN( N)-DT( PFORCE) -OA*OS*ZQ 
DT ( VE  L ) =QA* 05/ D ( A R E A 1 ) 

PQLEG( INEL, 8 ) =PQLEG( INLL, 8 ) + DT ( PPl?) 

RETURN 

PQLEG( INEL, 3 ) =PQLLG{ INLL,8)+DT( PP2P) 

PQLEG( INLL, 6)=PQLEG( INLL, 6 ) +20 

PQLEG ( INEL, 5 ) =PQLEG( IMEL,5)-DT( PFORCE) 

PQLEG ( INEL, 1 1 ) = PQLEG ( INEL, 1 1 ) -DT ( PFORCE ) -QA*QS  * ( 2Q+QA*DT{ P P2P)  ) 

RETURN 

Q3--QS 

Q N ( N ) = - D T ( N C A V ) * Q A * OS  * ( D ( A R E A 1 ) - D ( A R L A 2 ) ) / D ( A R E A 2 ) 
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(Continued) 


1350  DT ( PFORCE ) =- ( PN ( N ) * ( D ( AREA2 ) -D( AREA! ) ) +DT( FORCE ) )/D( AREA1) 
DT(PP2)=PN(N) 

DT(PP1)=PN(K)-DT( PFORCE) -QA*QS*ZQ 
DT( VLL) =-QA -QS/D( ARLA2 ) 

RETURN 

1000  WRITb( 5, 1950)  IND, KNEL, IN  EL 

1950  FORMAT ( 5X,  7HCOi-lP  NJO,I3,20H,  HAS  INVALID  CON  NO  ,13, 

1 11H,  IN  LEG  NO  ,14) 

C ***  2000  SECTION 
2000  CONTINUE 

DT( NCAV) =0 . 0 
OT( PP1P)=DT(  PP1) 

DT( PP2P) =DT{ PP2 ) 

DT( PX) =DT( X ) — DT( VLL) *DELT 
DT ( FORCE ) = 0 . 0 
XV=D(L( IY) ) 

DT  ( Q 2 ) = Q ( L ( 2 ) ) 

DT(Q1)=Q(L( 1) ) 

IF(XV.GT.O.O)  GO  TO  2020 
DT  ( Q 2 ) - Q ( L ( 1 ) ) 

DT(Ql)=Q(L( 2) ) 

2020  CONTINUE 
KLTUKN 
C 

C •'**  3000  SECTION 
3000  CONTINUE 

L1=L( 1) 

L2~L( 2 ) 

GV1-  ( D ( VOL.l ) +DT ( PX)  *D(  AREAl ) ) / ( DT(  KDULK)  *DLLT) 

ZV1=1. 0/GV1 

UT(PP1P)-DT(PP1)-DT( VEL) *D{ AREA1)*ZV1 

GV2  -( D( VOL2)-DT( PX) * D ( AREA 2 ) ) / ( DT( K3ULK) * DLLT ) 

ZV2=1. 0/GV2 

DT ( P P2P) =DT ( PP2 ) +DT ( VLL ) * D ( AREA2 ) *Z V2 

'"tALL  I NTLRP  (T,D(  17)  ,D(L(IY)  ) , 10  , L{  0JTA3)  ,XV,IN2) 

CALCULATE  LINE  FLOWS  AND  PRESSURES 
IF  (XV)  140,370,130 
C XV  LESS  THAN  0 

140  VX=D(SL0TW3) 

ZT=7.  ( L1)+ZV2 
DP=C ( LI ) -DT( PP2P) 

ICALC=1 
GO  TO  210 

150  DT( Q2 ) =31GN ( FLOW , DP) 

Q(L1)=DT(Q2) 

VK=D(SLOTW2) 

ZT=Z ( L2)+ZVl 
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r>  n r n 


6.101.7  (Continued) 


r 


DP=C(L2)-DT(PP1P) 

ICALC=2 

GO  TO  210 

160  DT(Q1) -SIGN (FLOW, DP) 
Q(L2)=DT(Q1) 

GO  TO  220 

XV  = 0 

170  QT(Q1)=0.  , 

DT  ( Q 2 ) = 0 . 

Q(L2)=0.0 
Q(L1)=0.0 
IC ALC=5 
GO  TO  220 


XV  GREATER  THAN  0 
180  VK-D(.iLOTWl) 

ZT=Z(Ll)+ZVl 
DP=C ( Ll ) -DT(  PPl?) 

ICALC-3 
GO  TO  210 

100  DT(Ql)-SIGN(FLOW,DP) 

Q(L1)=DT(Q1) 

VK=D( SLOTW4 ) 

ZT»Z(L2)+ZV2 
DP=C ( L2 ) -OT( PP2  P) 

ICALC =4 
GO  TO  210 

200  DT( Q2) -SIGN (FLOW, DP) 

0( L2 ) =DT( 02 ) 

GO  TO  220 

CALCULATE  ABSOLUTE  VALUE  OF  FLOWo 
210  FN1-XV*XV*VK*VK 
FN2=FHl*ZT 

FLOW=(  SQRT(  FN2**  2 + 4 . 0* FN1*A33 ( DP)  ) -FN2)/2. 0 
GO  TO  ( 150, 160, 190, 200 ) , ICALC 


C 


20  CONTINUE 

P(Ll)=C(Ll)-Q(Ll)*Z(Ll) 

P(L2)=C(L2)-Q(L2)*Z(L2) 

VAP=PVAP(KTE.1P(IMD)  ) 

IF(P(L2) .GT.VAP. AND.QT(NCAV) . LL.0.0)  GO  TO  270 
FLOW=0. 0 

GO  TO  ( 230, 230, 240, 240, 250) , ICALC 
30  FN2-FN1* Z Vl 

OP*VAP-DT( PP1P)  _ . 

FLOW* ( SORT(  FN2**  2+4 . 0*FN1*ABS( DP) ) -FN2) /2. 0 


FLOW-SIGN  (FLOVJ,  DP) 
DT(Ql)=FLOW 


I 
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GO  TO  250 
240  FN2=FN1*ZV2 

DP=VAP-DT( PP2P) 

FLOtf=(SQRT(  FI4  2**2+4. 0*Fi4l*ABS(DP)  ) ~FN2)/2.0 
FLOW-SIGN  ( FLOW , DP) 

DT(Q2)=FLOW 

250  Q(L2)=(C(L2)-VAP)/Z( L2) 

P(L2)=VAP 

DT(  NCAV)  =DT(  NCAV)  +FLOW-Q{  L2  ) 

270  CONTINUE 
C 

c calculate;  actuator  VELOCITY 
C1=GV1/D( ARLAl) 

G2= GV2/D( AREA 2) 

ZM=DT(  KDAt  iP)  +D(  A K t. A 1 ) /Gl+D(  AREA 2 ) /G2 
DP=DT( LOAOEX) +OT{ LOADZ ) +DT( PX) *DT( LOADS) 

UELTP=DT(  01  )/Gl  + DT(  PPl ) *D(  ARL'.Al ) -DT ( Q2  ) /G2-DT  ( PP2  ) *D(  AREA 2) 
VELO=DT( VEL) 

DT(VEL)  = ( DELTP-DP4VELO*DT(  INERT)  J/7.N 
DT  ( P X ) - DT  ( X ) 

DT { X ) =DT( X ) +DLLT02* ( DT( VEL) 4VLL0) 

CALL  XLIflIT(  DT ( X ) , OT(  VLL)  , DP,  0(  .1IN.ST)  , D(  iAXGT ) ) 

DT ( PX ) = DT ( X ) *2. 0-OT( PX) 

IF(DP.NL.O.O)  DT(PX)-DT(X) 

IF ( DP. LQ. 0.0)  VELO=DT ( VLL) 

DT ( PPl ) =D±( PPl ) 4 ( DT( 01 ) -VbLG*D( AREA1 ) )/GVI 
DT ( P P 2 ) = DT ( PP2) 4( DT(Q2) 4VELC*D( AREA 2 ) )/GV2 
RETURN 
END 
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6.102  SUBROUTINE. ACT102 


ACT102  simulates  a buttle  utility  actuator.  Thu  current  subroutine 
allows  the  input  of  piston  rod  loads  at  zero  and  maximum  stroke.  Straight 
line  interpolation  is  used  between  these  two  loads. 


Conmiction  No.  1 


No.  1 Volum* 


No.  2 Volunn* 


FIGURE  0.102-1 

TYPE  NO.  102  UTILITY  ACTUATOR 


ttr  >«  u"  J A 


b. 102-1 


6.102.1  Math  Model 


The  ACT102  subroutine  simulates  a simple  utility  actuator.  Figure  6.102.2 
shows  the  various  forces  acting  on  the  actuator. 


Figure  6.102.2 

Summing  the  forces  on  the  actuator  yield 

F = P1*A1-P2*A2-FD-Fi  6.102.1 

where  F is  the  load  on  the  actuator,  lb, 

PI  is  the  head  side  pressure,  psi, 

A1  is  the  head  side  area,  in^, 

P2  is  the  rod  side  pressure,  psi, 

9 

A2  is  the  rod  side  area,  in“, 

Fp  is  the  damping  force,  lb, 

Fj  is  the  inertial  force,  lb. 

The  damping  force,  F^,  is 

Fd  = V*DAMP 

where,  V is  the  velocity  of  the  piston,  in/sec 

DAMP  is  the  piston  damping  coefficient,  lb  sec/in. 

The  inertia  force,  Fj,  is 

Fj  = (V-Vo)*M/  T 

where  Vo  is  the  previously  calculated  velocity,  in/sec, 

2 

M is  the  mass  of  the  piston  and  load,  Ib-in/sec 
T is  the  calculation  time  step. 
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The  unknown  quantities  V,  PI  and  P2  must  be  determined.  The  value  of  PI 


and  P2  may  be  determined  from  figure  6.102-3. 

PI 


P2 


Z (LI) 

C (LI)  * VV 


DAMP 


AREA1  I W 1 


1 

kREA2 


Z(L2) 

-A/V — 4 


s 


GV1 


DT(P1) 


DT(P2) 


Figure  6.102-3 
ACT102  Schematic 


The  past  values  of  PI  and  P2,  DT(P1)  and  DT(P2)  respectively,  are  she.,  n 
at  the  ends  of  pseudo  passages  along  with  their  conductances,  GV1  and  GV2. 
The  conductances  GV1  is  calculated  using  the  equation 
GV1  = (V0L1+X*A1) /BULK*  T 

3 

where,  V0L1  is  the  head  side  volume,  in  , 

X is  the  displacement  of  the  piston,  in, 

BULK  is  the  bulk  modulus  of  the  fluid,  psi. 

Similarly,  GV2  is  calculated  using 
GV2  = (VOL2-X*A2) /BULK*  T 
Summing  the  flows  about  PI  and  P2  yields, 

(C(Ll)-Pl) /Z(L1)+(DT(P1)-P1)*GV1  = V*A1 
(PL-C(L2))/Z(L2)+(P2-DT(P2)*GV2  = V*A2 


where,  DT(P1)  is  the  previously  calculated  head  side  pressure,  psi, 
DT(P2)  is  the  previously  calculated  rod  side  pressure,  psi 


C(L2) 
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Solving  the  above  equations  for  P3.  and  P2 


PI 


reap 

zai) 


+ 


DT(P1)*GV1  - V*Al]  /[  1/2 (LI)  + GV1  ] 


F2  " + DTa2)*GV2  + U*A2]  / [1/Z(L2)  + GV2] 

Let, 

Cl  - C(L1)/Z(LI)  4-  DT(P1)*GV1 
C2  - C(L2)/Z(L2)  + DT (P2)*GV2 
G1  - 1/Z (LI)  + GV1 
G2  - 1/Z (L2)  + GV2 

Substituting  Cl,  C2,  G1  and  G2  into  the  equations  for  PI  and  P2  yields, 

PI  - (Cl  - V*A1)/G1  6.102.2 

P2  - (C2  + V*A2)/G2 

Rewriting  6.102.1  using  the  equations  for  PI,  P2,  Fp  and  Fj  gives, 

V - ((Cl-V*Al)/Gl)*Al-((C2*V*A2)/G2)*A2-V*DAMP-(V-Vo)*M/AT 
Solving  for  V gives 

V ™ f C1*A1 

L G1 


C2*A2  l'MVo*M/AT 


G2 


P' 


A22 

G2 


(DAMP+M/  AT)1 


With  the  velocity  of  the  piston,  V,  known  the  pressures  in  the  head  and 
rod  side  of  the  actuator  may  be  determined  using, 

PI  - (Cl  - V*A1)/G1 
P2  “ (C2  + V*A2)/G2 

The  displacement  of  the  piston  is  given  by 
X - X0  + (V-Vo)AT 

where  XG  is  the  previously  calculated  displacement,  in. 

The  pressures  and  flows  at  the  connections  to  the  actuator  may  then  be 
calculated  as  follows, 


e.  in1!./, 


\ 


P (LI)  = PI 

P(L2)  - P2 

Q(L1)  = (C (LI)  - P(L1))/Z(L1) 

Q(L2)  = (C(L2)  - P(L2))/Z(L2) 

where,  P(L1)  and  P(L2)  are  the  pressures  at  the  connections,  psi 
Q(L1)  and  Q(L2)  are  the  flows  at  the  connections,  cis. 

6.102.2  Assumptions 

Friction  and  stiction  are  assumed  to  be  aero 

6.102.3  Computational  Method 
1000  Section 

fhe  slope  of  the  actuator  load  stroke  curve  is  calculated 
DT (LOADS)  - (D(MAXL)-D (MINL) ) / (D(MAXST) -D (MINST)) 

The  load  at  zero  stroke  arid  the  net  external  load  are  then  calculated. 

DT(LOADZ)  = D(MAXL)  - DT (LOADS )*D(MAXST) 

DT(LOADEX)  = DT ( LOADS ) *D( IN P0S)+DT (LOADZ)+(D (ARLA1) 

-D(AREA2))*ATPRES 

A sign  convention  is  established  such  that  flow  into  the  volume  1 chamber 
and  the  resulting  piston  velocity  are  positive. 

Various  variables  are  initialized  to  zero. 
lbOO  Section 

The  entry  first  determines  whether  connection  no.  1 is  attached  to  an 
upstream  or  downstream  line.  This  establishes  the  actuator  steady  state  mode 
of  operation.  If  entry  is  made  using  connection  no.  2,  leg  pressure  gain  (or  loss) 
and  leg,  laminar  constant  are  updated.  Pressure  at  connection  no.  2 is  also  calculated  and 
stored.  If  entry  is  made  using  connection  no,  1,  tests  are  performed  to  verify  that  the 
piston  is  free  to  move  as  prescribed  by  the  flow  guess. 


A 

I 


A 1H9-S 


Tpj  iRjiuwi  .in  p p_ij1: : 


If  the  piston  is  on  a stop  and  the  flow  guess  is  such  that  motion 
would  be  into  the  stop,  the  node  overboard  flow  is  set  to  zero  and  impedance 
is  set  to  a very  large  number  (40000) . 

If  the  piston  is  free  to  move,  the  overboard  flow,  piston  velocity, 

P across  piston  and  pressure  at  connection  no,  2 are  calculated. 

2000  Section 

The  variables  used  in  the  1500  section  art-  changed  to  the  values 
needed  in  the  3000  section. 

3000  Section 

A series  of  t inporary  variables  GV1 , G1 , Cl,  011  and  DP  etc.  are  calculated 
using  the  predicted  actuator  position  DT(PX).  The  variables  are  used  in  the  solution 
of  the  network  shown  in  Figure  6.102-3. 

The  velocity  oi  the  piston  is  calculated  using 
PT(VISL)  » (Cl  1-C22-1)P+VEL0*1)T( INERT)  )/ZN 

The  DT(INERT)  term  is  used  to  incorporate  the  effect  of  the  load  mass  In 
much  tlie  same  way  as  the  fluid  flow  Is  included  In  the  pressure  to  give  a 
characteristic  pressure.  The  inertia  term  is  equal  to  the  force  required  to 
decelerate  the  piston  from  the  old  velocity  to  zero  in  the  Lime  interval  DELT, 
and  hence  contributes  to  the  net  force  on  the  piston. 

If  the  velocLty  is  constant  then  the  inertia  term  included  In  T)T(NDAMP) 
balances  out  the  DT(TNERT)  term  and  produces  no  net  effect. 

The  position  of  the  piston  Is  the  calculated  from 
1)T  (X)  = i)T  (X)+  (VELO+DT  (VKL)  ) *I)KI,T02 

The  piston  position  Is  checked  to  determine  whether  or  not  it  exceeds  the 
maximum  or  minimum  actuator1  stroke  specified  in  the  input  data. 

The  pressures  within  volumes  l and  2 are  then  calculated  using, 

l)T(l'l)  = (C1-1)T(VKU*D(AREA1))/01 
DT  (P2)=  (C2+DT  (VEU*1)  (AREA 2)  ) /(; 2 
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The  flowB  and  pressures  into  .'nd  out  of  the  actuator  is  then  calculated  by 


D (LI)  - (C(L1)  -DT (PI) ) /Z (LI) 

P (LI)  - DT (Pi) 

Q(L2)  - (C(L2)  - DT (P2)  ) /?. (L2) 

P(L2)  -■  DT(P2) 
b.102.4  Approximations 
None 

6.102.5  Limitations 

With  no  friction  or  stictlon  the  model  response  to  small  pressure 
changes  or  load  changes  will  not  be  accurate. 

The  model  is  Inaccurate  if  the  actuator  volumes  are  allowed  to  cavitate. 
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6,102.6  Variable  Names 


Variable 

Description 

Units 

U(AREAl) 

//I  Platon  area  (Extend) 

in*- 

D(AREA2) 

II 2 Piuton  area  (Retract) 

in2 

Cl 

Temporary  variable 

— 

Cll 

Temporary  variable 

— 

C2 

Temporary  variable 

— 

C22 

Temporary  variable 

— 

11  (DAMP) 

Seal  friction 

lb-sec 

in 

DELT02 

Integration  constant 

sec 

DT(DELTP) 

Pressure  drop  across  piston 

psi 

DP 

External  load 

lb 

GV1 

Conductance  of  Volume  1 

c.is/psi 

GV2 

Conductance  of  Volume  2 

c i s/psi 

G1 

Temporary  variable 

— 

G2 

Temporary  variable 

-- 

DT( INERT) 

Load  Inertia 

lb  see/ in 

D(INPOS) 

Initial  actuator  posit: ion 

in 

DT(KBULK) 

Oil  bulk  modulus  limes*  T 

psi*sec 

DT  (LOADEX) 

External  load 

1 hs 

DT( LOADS) 

Load  slope 

lb/ in 

DT(LOADZ) 

Load  at  zero  stroke 

lbs 

LS 

Connection  sign 

— 

LI 

Dummy  variable 

— 

L2 

Dummy  variable 

— 
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Units 


Variable 

D(MASS) 

D(MAXL) 

D(MAXST) 

D(MINL) 

D (MINST) 

N 

DT(NDAMP) 

DT(PX) 

DT  (PI) 

DT(P2) 

TLOAD 

DT(VIiL) 

VELO 

D(VOLl) 

D(VOL2) 

DT  (X) 

ZN 


Description 
Load  mass 

Load  - actuator  fully  extended 
Maximum  actuator  stroke 
Load-actuator  fully  retracted 
MIAlmum  actuator  stroke 
Integer  counter 
Load  damping  factor 
Predicted  piston  position 
Pressure  in  volume  1 
Pressure  in  volume  2 
Temporary  variable 
Actuator  velocity 
Previous  actuator  velocity 
Volume  1 at  zero  stroke 
Volume  2 at  zero  stroke 
Piston  position 
Temporary  variable 


lb  sec in 

lbs 

in 

lbs 

in 


lb  sec /in 

in 

psi 

pai 

in/sec 
in/ sec 


in 
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6.102.7  Subroutine  Llstlnp 

SUBROUTINE  ACTIO 2 ( D, DT, DO, L) 

C * * * * REVISED  JUNE  1976  **** 

DOUBLE  PRECISION  DD 

DIMENSION  D ( 1 1 ) , DT ( 11) , D D { 1) , L ( 4 ) 

COMMON  NTELPL, NTQLPL, 1 PT , I POINT , NPTS , INEL, KNLL , NTOPL , N LPLT( 6 1 , 3 ) , 

1 PQLE'Gf  90,12)  ,LCS(  9 0, 10)  , I LLG(  1400)  , PN ( 9 0 ) , QN  ( 9 0 ) 

COmMON/SUO/PARM(  150,9),  PM{  1500)  ,Qi«i(  1500)  , P(  300)  ,Q{  300)  ,C(  300) 

1, 2 ( 300)  , RUO(  20)  , S 20RI10 ( 20)  , VISC(  20)  ,BULK(  20)  ,TEwP(  20)  , PVAP{  20) 

2 ,  ATPRES , T, BELT, TF INAL, PLTDEL, PI, TITLE ( 20) , LECN, ICON 

3,  K"TEUP(  99)  , LSTART(  150)  ,NLPT(  150)  ,LTYPE(  99)  , NC(  99 ) , INX,  INZ 

4 , INV , ISTEP , N LINE  , NLL , I ND , IENTR,  MNLINE  , M.NLL,  MNLEG  , MNNODE  , MN  PLOT 
5 , MNLPTS  , .'IDS 

INTEGER  AREA1 , AREA2 , VOL1 , VOL2 , DAMP, X , VEL, PI , P2 , ZQ, DLLTP, PX 
C D ARRAY  VARIABLES 

DA TA  A R L A 1/ 1/ , A R LA 2/ 2/ , VO L 1/ 3/ , VO L 2/ 4/ , H INST/5/, M A X3T/6/, 

1 DAiiP/7/, MASS/8/, MlNL/9/ , MAXL/1  0/,  INPOS/11/ 

C DT  ARRAY  VARIABLES 

DATA  X/ 1/ , VEL/2/ , LOADZ/3/ , LOADS/ 4/ , LOAD EX/ 5/ ,Pl/6/,P2/7/, 

1 PX/V,ZQ/9/,NDAl.P/10/,  INLRT/1.1/,DELTP/12/,  KBULK/13/ 

IF( IENTR)  1000,2000,3000 
1000  CONTINUE 

IE  ( INEL. NL. 0 ) GO  TO  1500 
DO  1010  1-1 , 20 
1010  DT ( I ) = 0 . 0 
L ( 3 ) = 1 

IF(L( 1)/2.ME. (L( l)+l)/2)  L(3)=-l 
L ( 4 ) = - 1 

TP(L( 2)/2.NE. (L( 2)+l)/2)  L( 4)=1 
DT  ( Z 0 ) = 0 , 0 
DT ( DEL  TP ) = 0 . 0 
DT ( X ) = D ( IN PCS) 

DT ( P X ) = DT ( X) 

DT(  LOADS  ) = ( P(  MAXL)-D(ulNL)  ) / ( D ( tiAXST)  - D(  til NST)  ) 

DT  ( LDADZ  ) =D(  nAXL)  - DT  ( LOA  DS  ) * D ( A XS  T ) 

DT(LOADEX) =DT( LOADS) *D( IMPOS) +DT( LOADZ ) +( D( AREAl ) -B( AREA  2)  ) * ATPKLt 
DT  ( KBLJLY  ) = 3!JL('  ( KTEMP(  IND)  ) *DtLT 
DK LT02=DELT/2 . 0 
RETURN 
C 

C*  ***STtADY  STATE  SECTION**** 

C 

1500  CONTINUE 

OA=PQLEG( INEL,  1 ) 

LS=L ( 2+KNEL) 

QS=P0LEG( INEL, 2) *LS 
N = LC  S ( INEL, 3) 

LCS(  I N E L , 7 ) = 5 

IF(LS.GT.O)  GO  TO  1510 

IF( INX.NE. l.AND. KNEL.EQ. 1)  GO  TO  1900 

N=LCS( INEL, 2) 
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1510  IF(  KNEL.EQ.  2)  GO  TO  1850 

IF(D( INFOS) .GT.DU1INST) ) GO  TO  1500 
IF( DT ( LOADEX) . GO. 0. 0 ) GO  TO  1550 
IF(QS.GT.O.-O)  GO  TO  1650 
1550  QN  ( N ) = 0 . 0 

DT(2Q)=40000. 

TLOAD=0 . 0 


DT( VEL) =0 . 0 
GO  TO  1700 

1600  IF  ( D ( INPGS  ) . LT.  D(  1-1AXST)  ) GO  TO  1650 
IF ( DT( LOADEX) . LL. 0. 0)  GO  TO  1550 
IF ( QS . GT. 0,0)  GO  TO  1550 
1650  DT(ZQ)»0.0 

TLOAD=DT( LOADEX) 

QN(N)=(  -1.  ) *QA*QS*(  D(  AREA1 ) -D(  AREA?.)  ) /D ( AREA  1 ) 
DT{ VEL) =OA*QS/D( AREAl) 

17  00  DT(DELTP) =(  PN< M ) * ( D( AREA1 ) -D( AREA 2 ) )- 
1TL0AD-DT(  VEL)  *D(DAi-iP)  )/D(  AREA2) 

1750  DT ( P 1 ) = PN  ( N ) 

DT( P2)=PN(N)+DT(DELTP)-QA*QS*UT( ZQ) 

1800  RETURN 

1850  IF ( I NX. EQ. 1 . AND. LS . EQ. -1 ) GO  TO  1000 


POlBG( INLL, 6)=PQLEG( INlL, 6 ) +DT( ZQ) 

PQLEG( INEL, 5)=PQLEG( INEL, 5) +DT( DLLTP) *LS 

PQLEG(  IN EL ,11) « POL EG ( INEL, 1 1) +DT( DELTP) *LS-DT( Z^) *QS*QA 


RETURN 

1900  WRITE(6, 1050)  I ND, KNEL, INEL 

1050  FQRHAT  ( 5X , 7 lICQw  P JO,I3,2.0H,  HAD  INVALID  CON  NO  ,1.8, 

1 11H,  IN  LEG  MO  ,14) 

WRITE ( 6,999) 

900  FORMAT  ( .1  OX  , 8 3 H PROGRAM  STOP  I VI  SUL  ROUTINE  ACT.1'02) 

STOP 


2000  CONTINUE 

DT( INERT) =D( UAS3)/DtLT 
DT(  NDAUP) =D(  DANP) +DT( INERT) 

DT( LOADEX) =(  D( AREA1 ) -D{ A REA 2 ) ) *ATPRbS 

DT( ZQ)  =0.0 

RETURN 

3000  CONTINUE 
Ll=L( 1) 

L2=L( 2) 

GV1=( D( VOL1) +DT( PX) *D( AREAl ) )/DT(K3ULK) 
GV2=( D( VOL2) -DT( PX) * D ( A R E A 2 ) )/DT(  K3ULK) 
Gl  =1.0/Z{  LD+GV1 
G2  = 1 . 0/ Z ( L 2 ) +G V 2 
C1=C(LI)/Z(L1)+DT( Fl) *GV1 
C11=C1*D( AREA1)/G1 
C2=C(L2)/Z(L2)+DT(P2)*GV2 
C22=C2*D( AREA 2 )/G2 

DP=DT( LOADEX ) +DT ( LOADZ) + DT ( LOADS ) * DT  ( PX) 
DT ( ZQ)  =DP 
VELO=--DT{  VEL) 
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ZN=QT ( N DA.'IP ) +D ( ARtAl ) * * 2/G1  + D ( ARE A2 ) **2/G2 
DT{ VLL) -( Cl 1-C 2 2-0 P+VL LO* DT ( INERT) )/ZN 
DT  ( PX ) = DT ( X ) 

DT( X ) =DT( X ) + ( VELO+DT ( VEL) )*DELT02 

CALL  XLI/1IT(  DT(  X ) , JT{  VLL)  , DP,  D(  i-lINST)  , D(nAXST)  ) 

DT ( PX ) =DT ( X ) * 2 . Q-DT ( PX ) 

IP (DP. NL. 0.0)  DT ( PX ) =DT( X ) 

DT( P1)=(C1-DT( VLL)*D{ AREA1) )/Gl 
DT( P2)=(C2+DT( VLL) *D{ AREA2) )/G2 
0 ( L 1 ) = ( C ( L 1 ) -DT ( P 1 ) )/Z(Ll) 

P( Ll)=DT( PI) 

Q(L2)=(C(L2)-DT(  P2 ))/?.(  L2) 

P( L2 ) =DT( P2) 

RETURN 

END 
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Subroutine  ACT103  models  the  shuttle  elevon  actuators,  the  layout  of 
which  is  showr  in  Figure  6.103-1.  The  elevon  actuators  operate  from  three 
pairs  of  hydraulic  supply  and  return  lines.  The  actuator  supply  and  return 
is  selected  from  the  three  hydraulic  systems  by  a switching  valve  module  as 
shown  in  Figure  6.103-2.  For  the  purposes  of  modeling  the  switching  valve 
module  is  considered  to  be  an  independent  model  connected  to  the  actuator 
via  pseudo  lines.  The  input  command  and  hinge  moments  are  supplied  by  the 
SDF  Program  which  updates  the  values  at  each  sample  time  interval  of  the 
guidance  system  which  is  .04  seconds. 

6.103.1  Math  Model 

This  elevon  math  model  was  derived  from  information  and  a model  provided 
by  Rl.  The  model  shown  in  Figure  6.103-1  takes  the  difference  between  the 
position  command  signal  VC  and  the  position  feedback,  signal  VFB,  to  generate 
commands  to  the  servo  valve  torque  motor.  The  net  applied  torque  deflects  the 
servo  valve  causing  differential  flow  to  the  secondary  actuator  piston.  The. 
subsequent  displacement  of  the  secondary  actuator  which  is  attached  to  the 
servo  valve  by  a wire,  feedback,  continues  until  the  valve  is  returned  to 
the  equilibrium  flow  position.  Changes  in  the  position  of  the  secondary 
actuator  are  also  transmitted  to  the  power  spool  through  the  summing  linkage. 
The  power  spool  displacements,  XPS,  generate  differential  flow  the  main  ram 
causing  elevon  deflection.  The  elevon  deflection  is  sensed  as  VFB  and  compared 
with  the  elevon  position  command  Vc  to  close  the  loop.  Demand  flow  on  the 
hydraulic  system  is  generated  by  the  sum  of  the  flow  to  the  main  ram  with  the 
flow  to  four  secondary  actuators  plus  first  stage  leakage. 
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6.103.2  Assumptions 


The  model  Is  limited  to  simulating  one  channel  of  the  secondary  actuator 

and  it  is  assumed  that  the  other  channels  if  operative  wd,11  give  identical 

\ 

outputs,  in  terms  of  available  force  at  the  main  control  valve. 

The  model  of  the  differential  pressure  transducer  does  not  have  static 
and  dynamic  friction.  To  save  computing  time  a common  hinge  moment  arm 
has  been  used  for  translating  force  to  hinge  moment  and  elevon  velocity  to 
actuator  velocity. 

The  actuator  velocity  conversion  is  not  quite  correct  since  the  actuator 
position  is  the  sum  of  the  elevon  deflection  and  structural  deflection. 

6.103.3  Computation  Method 

The  method  used  for  computation  is  based  on  the  previous  program 
developed  by  J.  Fivel  and  J.  Callihan. 

This  program  uses  Tustin's  method  of  integration  and  is  arranged  such 
that  each  differential  is  evaluated  using  the  latest  value  of  the  previous 
integral,  in  a series  calculation,  rather  than  the  more  usual  parallel 
integration  methods,  where  the  integrals  are  effectively  evaluated  simultaneously  • 
using  previous  values  to  evaluate  the  derivatives. 

The  use  of  the  series  integration  used  together  with  predicted  values 
for  selected  variables  works  better  than  other  methods  under  certain  conditions. 
The  computation  follows  the  usual  component  subroutine  layout  shown  in  Figure 
6.1-1  on  page  6.1-2. 

1000  Section. 

This  section  is  used  to  initialize  variables  used  by  the  program.  For 
the  most  part,  the  integration  variables  are  zeroed  and  the  Tustin  subroutine 
is  called  to  initialize  the  integration  constants. 


1500  Section 


This  section  is  used  to  return  values  for  the  steady  state  calculation 
so  that  the  system  state  conditions  can  be  calculated.  It  is  assumed  that 
the  secondary  and  surface  actuators  are  at  zero  velocity,  hence  the  only 
steady  state  flow  is  that  due  to  the  first  stage  servo  valve  leakage.  The 
first  stage  impedance  1.0/(D(KQL0SS)*D(KCHAN)  is  added  to  the  value  in 
PQLEG  (INEL,8),  and  the  pressure  drop  DELP  is  subtracted  from  the  inlet 
pressure  PQLEG (INEL, 11 ) . 

2000  Section 

This  section  is  used  to  initialize  the  variables  to  their  steady  state 
values.  The  only  variables  involved  for  the  subroutine  are  the  surface 
actuator  pressures  which  are  set  at  the  mean  of  the  inlet  and  return 
pressures.  The  effect  of  the  internal  load  is  to  vary  the  pressures 
either  side  of  this  mean.  The  actuator  position  is  initialized  to  the 
trim  position  calculated  by  the  SDF  program.  Most  of  the  other  variables 
are  zeroed  since  to  initialize  the  elevon  variables  at  any  condition  other 
than  zero  velocity  would  be  very  difficult. 

3000  Section 

The  transient  section  of  the  program  is  coded  to  follow  the  flow 
path  of  the  model  diagram,  starting  with  the  input  position  command  DT(VC). 
DT(VC),  is  varied  by  the  SDF  program  with  the  value  being  updated  at  40 
millisecond  intervals.  The  SDF  program  uses  the  latest  value  of  actuator 
position  feedback  voltage  DT(VFB)  in  its  calculations  as  an  indication  of 
the  elevon  position.  SDF  also  calculates  the  surface  hinge  moment  at  this 
position  and  using  that  at  the  previous  time  step  uses  a linear  interpolation 
to  obtain  a hinge  moment  at  zero  actuator  position  and  the  slope  of  hinge 
moment  versus  position. 
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ACT103  uses  the  zero  and  slope  values,  to  interpolate  values  of  TAEP.O 
until  those  values  are  updated  by  the  next  SDF  computation.  The  interface 
between  this  subroutine  ACT103  and  the  SDF  program  is  via  the  following 
variables  DT(1)  thru  DT(4). 


Variable 

Description 

Dimensions 

DT(VC) 

(Calculated  by  SDF) 

Input  position  command 

Volts 

DT (VFB) 

(Calculated  by  ACT103) 

Elevon  actuator  position 

Volts 

DT(KAERO) 

(Calculated  by  SDF) 

Elevon  hinge  moment  at  zero  stroke 

In  lbs 

DT(KAEROP) 

Elevon  hinge  moment  slope 

In  lbs/in 

(Calculated  by  SDF) 

The  input  command  DT(VC)  is  feed  via  a first  order  lag  to  the  junction, 
where  it  is  summed  with  a predicted  feedback  value. 

The  error  is  passed  through  a limiter  to  the  servo  valve  which  converts 
it  to  torque.  The  torque  is  summed  with  the  spring  feedback  from  the  secondary 
actuator  and  the  pressure  feedback  across  the  secondary  actuator  piston. 

The  flow  calculation  uses  the  supply  and  pressures  from  the  previous 
time  step  to  calculate  a new  flow.  The  flow  is  passed  through  a simple  lag 
to  denote  the  servo  valve  time  delay,  and  is  then  integrated  to  obtain  a new 
secondary  actuator  (main  control  valve)  position. 

The  actuator  position  is  tested  against  its  limits,  if  it  is  at  a limit 
then  the  secondary  actuator  flow  is  set  to  zero. 

The  flow  througn  the  main  control  valve  is  calculated  using  the  predicted 
actuator  cavity  pressure  and  the  valve  orifice  equations  which  are  solved 
in  conjunction  with  the  line  characteristic  equation. 

The  line  character istic ' pressure  is  reduced  by  an  amount  equal  to  the 
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secondary  actuator  flow  plus  the  leakage  flow  times  the  characteristic 
impedance.  This  method  avoids  the  need  for  a simultaneous  solution  which 
would  have  required  a more  expensive  iterative  solution. 

The  computed  flows,  which  are  positive  when  flowing  into  the  actuator 
cavities,  are  then  integrated.  The  integrated  flows  are  summed  with  the 
actuator  displacement  flow  and  the  difference  is  used  to  compute  a new  actuator 
cavity  pressure. 

The  cavity  pressure  computation  is  complicated  by  the  actuator  deflection 
due  to  differential  pressure  acting  cn  the  structural  stiffness. 

If  solved  sequentially,  an  arithmetic  loop  is  created  which  creates 
computational  instability.  This  was  avoided  by  reformulating  the  loop  to  give 
a direct  solution  for  actuator  cavity  pressures,  with  the  structural  stiffness 
being  integrated  into  the  calculation. 

The  remaining  part  of  the  computation  follows  the  block  diagram. 

Switching  Valve  Module 

The  switching  valve  module  Is  the  same  as  that  used  in  the  TVC  subroutine 
ACT105  and  described  in  the  TVC  model  description.  This  model  will  need  to  be 
revised  when  the  valve  design  details  are  finalized. 

The  revisions  will  be  in  the  area  trigger  valve  operation  which  is  different 
from  the  technique  used  in  the  TVC  design. 
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6.103.4  Approximations 

The  servo  valve  first  order  lag  of  0.005  seconds  is  an  approximation. 

6.103.5  Limitations 

The  Elevon  module  can  be  used  to  simulate  the  overall  response  of  the 
actuator  and  surface  to  commands  from  the.  SDF  program.  Because  of  the  simplifica- 
tion in  the  area  of  the  secondary  actuator  the  small  signal  response  is  better 
than  can  be  expected  in  practice.  The  simulation  of  the  switching  valve  is 
not  ideal,  because  of  the  very  fast  response  of  these  valves.  To  improve  the  model 

would  require  a much  smaller  time  step.  Should  these  limitations  become  a 
problem,  a smaller  time  step  can  be  used  with  some  minor  program  changes 

and  of  course  an  increase  in  cost. 
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6.103.6  Variable  Names 


Variable 


D(AR) 


D(BE) 


D(1E) 


L(ISYS) 


D(KB) 

D(KCHAN) 

D(KFB) 

K.QLOSS 

D(KQl’S) 


D(KS) 


U(MAO) 


D (MAI) 


Description 


Gutboard  Inboard 
Valve*  Valve 


15000. 


Working  Area  of  Power  Spool 

Effective  Ram  Area  18.02 

Effective  Elevon  Damping  15000 

Coefficient 

Net  Error  Torque 

Torque  Motor  Input  Current 

Servo  Amplifier  Saturation  Limit 

Ram  Force  to  Load 

Elevon  Moment  of  Inertia  About  2663. 
Hinge  Line 

Active  Hydraulic  Connections 
Servo  Amplifier  Gain 


DT(KAERO)  Hinge  Moment  at  Zero  Stroke 

DT(KAEROP)  Hinge  Moment  Slope 


0.193 


21.80 


45000. 


Bernoulli  Force  Coefficient  0.319 

Number  of  Active  Channels 
Linear  Position  Transducer  Gain  1.173 
First  Stage  Leakage  Coefficient 
Power  Spool  Flow  Gain  51.8 

Secondary  Valve  F)  ow  Gain 


Dimensions 


in- lb- sec 


in- lb 


in-lb-sec 


ma/volt 


in- lb 


in- lb/ in 


0.755 


0.683 


0.0237 

124.7 


volts/in 
CIS/  PSI 
in/ (sec  lb) 


0.387  in  /(sec  lb) 


Structural  Stiffness 

Tottcjug  Motor  Gcij.n  Constant 

Wire  Feedback,  Power  Spool  to 
Torque  Motors 

Initial  Position  of  Elevon 
Actuator 

1st  Moment  Arm  Constant 


154000.  298000.  lb/in 


8.793 


0.045 


15.09 


in-lb/ma 
in-lb /in 


-4.063E-2  -2.90E-?.  in/ in 
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D(MA2) 

2nd  Moment  Arm  Constant  -5.51E-2 

-3. 22e-3 

in/ in 

D(MA3) 

3rd  Moment  Arm  Constant  1.40E-3 

6.40E-4 

in/ in ^ 

D(MA4) 

4 tli  Moment  Arm  Constant  6.40E-4 

-5.88E-5 

in/  in^1 

DT(PL) 

Load  Pressure  Across  Ram  Piston 

PS1 

DT(P1) 

Secondary  Actuator  Pressure 

PSI 

DT(QS) 

Secondary  Actuator  Flow  to 
Mod  Piston 

CIS 

DT(RFXL) 

Effective  Moment  Arm 

in 

DT(TAERO) 

Hinge  Moment  at  Zero  Stroke 

in- lb 

TAUC 

Dynamic  Load  Damping  Time  Constant 

0.1 

sec 

TAUFB 

Linear  Position  Transducer  Demod. 
Time  Constant 

0.004 

sec 

VAP 

Vapor  Pressure 

PSI 

DT (VC) 

Position  Command  Signal 

volts 

DT(VFB) 

Ram  Position  Feedback  Voltage 

volts 

VLVOL 

Power  Valve  Overlap 

0.0006 

in 

D(VOLl) 

#1  Cavity  Volume  at  Mid-Stroke  82.6 

169.0 

in3 

D(VOL2) 

#2  Cavity  Volume  at  Mid-Stroke  82.6 

169.0 

in3 

DT(XFB) 

Ram  Pistion  Position 

in 

DT(XPS) 

Power  Valve  Displacement 

in 

* Same  as  inboard  unless  otherwise  noted. 


n n non  n n n noon 


6.103.7  Subroutine  Listing 


SUBROUTINE  ACT103  ( D, DT, DD, L) 

******  REVISED  JUNE  1976  ****** 

SHUTTLE  ELEVON  ACTUATOR  MODEL  WITH  SWITCHING  VALVE 
DOUBLE  PRECISION  DD 

COMMON  NTELPL,NTOLPL,IPT,IPOINT,NPTS,INEL, KNEL , NTQPL, NLPLT( 61,3), 

1 PQLEG(  90, 12) ,LCS(9  0, 10) , ILEG( 1400) , PN( 90) ,QN{ 90) 

COMMON/SUB/ PARM ( 150,9),PM(1500),QM(1500),P(300),Q(300),C(300) 

1,  Z{ 300) , RHO( 20) , S20RH0( 20) , VI SC ( 20) ,BULK{ 20) ,TEMP( 20) , PVAP( 20) 

2,  ATPRES,T, DELT, TFIMAL, PLTDEL , PI , TITLE ( 20) , LEGN, ICON 

3 ,  KTEMP{ 99) , LSTART( 150) ,NLPT( 150) , LTYPE( 99) ,NC( 99) , INX,INZ 

4, INV,ISTEP,NLINE,NEL, IND, I KNTR , MNLINE , MNEL , MNLEG , MNNODE , MNPLOT 
5 , MNLPTS, MDS 

REAL  KA , KC , KTM , KQS , KXPS , KQLOSS 
INTEGER  AR, BE , VC , VFB , VFBP, PI , XPS , 

2 TXPS , PS , XYQS , QS , XQI , XQ, 

3 XYXPSD, XPS  D, X PS  I , Q1 , Q2 , PP1 , PP2 , XYTE , TE , DELEDI , 

4 XYDLED, VXL, RFXL, XL, XSD, XYPL, PL, VPLI , XYXFB , XFB , VFBI , 

5 VOL1 , VOL2 , VXLP, XFBP, PIP 

6 , FIB ETA ,XLP,XIQ1,XIQ2, VCS , VCN , VCL 

7 , CRA , CSA, CRV , CSV 

8 , XP , XPP , VELP , XS , XS  P , VELS , COEF VP , COEFVS 
DIMENSION  D{ 16) ,DT( 100), DD( 1 ) , L( 10) 

***  D ARRAY  VARIABLES 

DATA  KCHAN/1/ , KB/ 2/ , KQPS/ 3/ , AR/4/ , KS/5/ , IE/ 6/ , BE/7/ , KFB/8/  , 

2  VOL1/9/ , VOL2/ 1 0/ , MA0/1 2/ , MA 1/ 1 3/ ,MA2/14/ ,MA3/15/,MA4/16/ 

***  DT  ARRAY  VARI3LES 

DATA  VC/  1/  , VFB/  2/  , VFBP/'  3/  , KAERO/  4/  , KAEROP/5/  , 

1 Pl/6/ , XPS/ 7/ , TXPS/ 8/ , PS/9/ , XYQS/ 1 0/ , QS/1 1/ , 

2 XQI/ 12/, XQ/ 13/, NQLOSS/ 1 4/ , NQS/ 1 5/ , NQPS/1 6/ , NCAV/ 17/, 

3 1 9 ETA/ 1 8/ , XYXPS D/1 9/ , XPS  D/ 20/ , XPS 1/ 21/ , Ql/ 2 2/ , 

4 Q2/23/, PPl/24/, PP2/ 25/ , XYTE/26/ , TE/27/ , DELEDI/ 28/ , 

5 XYDLED/' 29/,  VXL/ 3 0/,  RFXL/ 3 1/,  XL/3  2/,  XSD/3  3/, -XYPL/ 3 4/,  PL/ 3 5/, 

6 VPLI/36/,XYXFB/37/,XFB/3  8/,KINT/39/, KFLOW/ 4 2/ , VXLP/ 4 5/ , XFBP/ 46/ , 

1 PlP/47/ , VFBI/48/ , DPF8/49/ ,DPFBP/50/ ,FIBETA/51/, 

2 XL P/ 5 2/, XI Q 1/53/ ,XIQ2/5  4/, KCQM/ 55/ , VCS/ 5 8/ , VCN/ 5 9/ , VCL/ 60/ , 

3 XP/61/,XPP/6  2/, VELP/ 6 3/, XS/6 4/, XS P/6 5/, VELS/6 6/, 

4 COEFVP/67/ ,COEFVS/68/ , LOSS/69/ , LEAK/70/ , LSWACT/71/ , 

5 NSUPRP/7 2/ , NRETRP/ 7 3/, I SYS/ 8/ 

6 , CSA/ 7 4/ , CSV/7 5/ , CRA/ 7 6/ , CRV/ 7 7/ , TP/ 7 8/ , KDAMP/79/ , KTRANS/ 8 2/ 

***  INITIALIZE  CONSTANTS  COMMON  TO  ALL  ACTUATORS  *** 

DATA  VLVOL/.0006/, 

1 DORFCP/. 5/,DORFCS/. 5/ , OLP/ . 0 0 5/ , OLS/ . 005/, ZSPP/15./ ,SSPP/50./, 

2 AlPSl/.338/,A2PS2/.274/,A3PB/. 263/,A4PR2/. 327/, 


6.103-11 


no  n non 


6.103.7  (Continued) 

3 A1SS1/ . 338/,A2SS2/. 230/ , A3SB/ . 263/ , A4SR2/ . 382/ , 

4 KA/1 5./ , KTM/ . 045/ , EYEL/8 . 0/ , KQS/ . 387/ , KXPS/6. 22/ , 

5 APS/ • 19  3/ , XPSL/ . 0 65/ , KQLOSS/ . 0 237/ , ZS/ 6 . 5/ r ZR/6 . 5/ , 

6 KC/. 000019/ ,TAUC/.1/,TAUFB/. 004/ 

IF  (IENTR)  1000,2000,3000 

1000  IF  (INEL.NE.O)  GO  TO  1500 

INITIALIZATION 

DO  1001  1=1,100 

1001  DT ( I ) = 0 . 0 

CORRECT  INPUT  DATA  FOR  FLUID  TEMPERATURE 
I=KTEMP( 1ND ) 

DT( NQS ) =S20RHO{ I ) /SQRT{ 2./7.82E-5) 

DT( NQPS ) = D( KQPS ) *DT( NQS ) *SQRT( 2. ) 

DT( NQLOSS ) = KQLOSS*  DT ( NQS ) 

DT ( NQS ) =KQS*DT( NQS ) 

DT( I3ETA) =BULK( I ) 

DT( FIR ETA) =DT( I BETA) *D(AR)*D(AR)/D(KS) 

CALL  TUSTIN( 1 , 1 . , DT ( RINT) , DELT) 

CALL  TUSTIN ( 2 , . 005, DT( KFLOW) , DELT) 

CALL  TUSTIN ( 2, .0159, DT ( KCOM ) , DELT ) 

CALL  TUSTIN ( 3 , TAUC  , QT(  KDAilP)  , DELT) 

CALL  TUSTIN ( 2 , TAUFB , DT( KTRANS ) , DELT) 

SET  UP  SWITCHING  VALVE  CONSTANTS 
DINP=.75/( 12*32. 2*DELT) 

DELT02=DELT/2. 0 
BBVP=( DORFCP/A3PB ) * * 2 
BVP=BBVP* ( . 1+DINP ) / 2 . 0 
SQBVP=B VP*  * 2 
BBVS= ( DORFCS/A3SB ) * *2 
3VS  = BBVS*  { . 1+DItNP)  / 2. 0 
SQBVS  = B VS*  * 2 

DT( COEFVP) =2 . 0* . 65*S20RH0( I ) 
DT(COEFVS)=2.0*.65*S2ORHO( I) 

DT(LEAK)=1 000000, 

C 

L( ISYS ) = 1 

IF(INV)  1220,1250,1200 
1200  IF( L( 9) .EQ.INV)  GO  TO  1250 
IF ( L( 1 0 ) .EQ.INV)  GO  TO  1230 
L( ISYS ) =3 
GO  TO  1250 

1220  IF(L(9) .NE.-INV)  GO  TO  1250 
1230  L( ISYS ) =2 
1250  CONTINUE 

DT( LOSS ) =RHO( 1)*5.06 

DT( LSWACT ) =1 . 0/( DT( COEFVS ) * . 2 ) **  2 + DT( LOSS ) 

IF( L( ISYS) .GT„ 2)  GO  TO  1260 
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126  0 T U E ^ ^ ” D T ^ LS  c T } ^ 1 # 0 / ( D T ( c 0 E F v p )^,2)^^2  131?  ( LOS  S ) 

RETURN 

C 

C STEADY  STATE  SECTION 

C 

1500  CONTINUE 

QLOSS  = ( 1. 0/( DT(NQLOSS) *D( KCHAN) ) ) **2 
COES=DT( LEAK) 

. IF ( (KNEL+1)/2.NE.L(ISYS) ) GO  TO  1600 
DT{QS)=PQLEG( INEL, 1) *PQLEG( INEL, 2) 

COES=0. 0 

1600  QSA=PQLEG{ INEL,  ] ) 

PDE LTA=PQLEG( INEL, 2) *QSA* ( QSA*DT( LSWACT) +COES ) 
DELP=PQLEG( INEL, 2) *QSA* * 2*QLOSS 
PSA=PQLEG( INEL, 11)-PDELTA 
PRA=PSA-DELP 

PQLEG( INEL, 11) =PRA-PDELTA 
PQLEG( INEL, 6 ) =PQLEG( INEL, 6 ) +COES*  2 . 0 
PQLEG( INEL, 8)=PQLEG( INEL, 8 ) +2 . 0*DT{ LSWACT ) +QLOSS 
IF( COES.NE. 0.0)  GO  TO  1700 
DT( PP1 ) =PSA 
DT( PP2 ) = PRA 
1700  RETURN 

VARIABLE  INITIALIZATION 

2000  CONTINUE 

DT(NSUPRP) =DT(  PP1) 

DT( NRETRP) =DT(  PP2 ) 

DT(CSA)=DT(PP1)+DT(0S)*ZS 
DT ( CSV) =DT( PPl)-DT(QS) *ZS 
DT( CRA) = DT( PP2) -DT( QS ) *ZR 
DT ( CRV) =DT ( PP2 ) +DT( QS  ) *ZR 
DT ( VCL) =DT( VC ) 

DT( VCS)=DT( VC) 

DT( VFB)=DT( VC) 

DT(  XFB)  =DT(  VFB)/D(  Ki'B) 

DT( XYXF3) =DT( XF8) 

DT( VF3I ) =DT( XFB) 

DT(  XYXFB) =DT( XFB) 

DT ( XF3P) =DT( XFB) 

TAERO  = DT{ KAERO) +DT( KAEROP) *DT( XFB) 

DT(RFXL)  = D( NA0 ) +D( rfAl ) *DT( XFB) +D( MA2 ) *DT( XFB) * * 2 
1 +DT(  XFB)  **3*  ( D(  MA3 ) +DT(  XFB)  *D(  MA4  ) ) 

DT(XL)  = DT( XFB ) - ( TAERO/DT( RFXL) )/D( KS ) 

DT( XLP)=DT( XL) 

FI  = TAERO/DT(RFXL)/D(AR) 

DT(PS)  = DT( PP1 ) -DT( PP2 ) 

DEEP  = (DT(PP1)+DT(PP2) )/2 
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DT(PPl)  = DELP+F1/2 
DT( PP2)  = DELP-F1/2 
DT(PL)  = FI 
DT( XYPL) =F 1 

DT(XIQ1)=(D( V0L1)+DT(XFB) *D( AR) )/(l.-DT( PPl)/DT( I 3 ETA) ) 
DT { XIQ2 ) = ( D( V0L2 ) -DT( XFB) *D( AR) )/( l.-DT( PP2)/DT( I BETA) ) 
DT ( VCL) =DT( VC ) 

DT ( VCS ) = DT ( VC ) 

DT { XP) =0.2 
DT  ( XS  ) = 0 . 2 

IF ( L( I SYS )-2) 2040/ 2020, 2010 
2010  DT( XS ) =-. 2 
GO  TO  2040 
2020  DT( XP) =-. 2 
2040  DT( XPP) =DT( XP) 

DT( XSP) =DT( XS ) 

DT( QS ) =0 . 0 
RETURN 

3000  CONTINUE 


****  TRANSIENT  CALCULATIONS  **** 

****  INTIALIZE  VARIABLES  **** 

RFXLS=DT( RFXL) 

DT(RFXL)  = D( MAO ) +D( MAI ) *DT( XL) +D( MA2 ) *DT( XL) **  2 
1 +DT(  XF3)**3*(D(MA3)  +DT(  XFB ) *D(  rlA4  ) ) 

RFXLP=2 . *DT( RFXL) -RFXLS 

TAERO=DT{ KAERO) +DT( KAEROP) *DT( XFBP) 

SECONDARY  ACTUATOR 

SERVO  AMPLIFIER 


DT ( VCN ) =DT ( VC ) 

DT( VCL) =DYNAM(  DT{  VCS ) , DT( VCL)  ,DT(  KCOl-1)  ) 
DT(VCS)=DT( VCN) 

EYE=KA* ( DT( VCL) -DT( VFBP) ) 

IF ( ABS ( EYE ) .GT. EYEL)  EYE=S IGN ( EYEL, EYE ) 

TORQUE  MOTOR 


TXPSS=DT( TXPS ) 

DT(TXPS)  = DT( XPS ) *KXPS 
TXPSP=2 . *DT{ TXPS ) -TXPSS 
Ti'l  = EYL*KTM 
E PS  T=TH— TX  PS  P 

IF ( ABS ( EPST) . GT. 0.02)  EPST=SIGN( 0. 02, EPST) 
DELP=DT( PS)-SIGN( 1.0,EPST) *DT( PIP) 
IF(DELP.LT.O.O)  DELP=0.0 
DT(QS)  = EPST*DT(NQS) *SQRABS ( DELP) 
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MAIN  contol  valve  position 

DT(XQI)  = DYNArl(DT(  XYQS)  , DT(XQI)  ,DT(KFL0W)  ) 

DT(XPSD)  = DT( XQI ) /APS 

DT(XPS)  = DYNArt( DT( XYXPSD) , DT( XPS ) , DT( KINT) ) 

CALL  XLIMIT( DT( XPS) ,DT( XPSD) ,TM , -XPSL, XPSL) 

IF(TM.EQ.O.O)  GO  TO  60 
DT  ( QS  ) = 0 . 0 
DT( XQI ) =0 . 0 
60  CONTINUE 

DT( XYXPSD) =DT( XPSD) 

DT( XYQS ) =DT( QS ) 

QLOSS  = ( A3S ( DT{ XQI ) ) +DT( NQLOSS ) *SQRABS ( DT( PS ) ) ) *D( KCHAN ) 
Q1S=DT( Q1 ) 

Q2S=DT(Q2) 

NXV=DT( XPS ) /VLVOL 
IF(NXV)  130,170,180 

XPS  LESS  THAN  0 

130  XPSS=( ( DT ( XPS ) +VLVOL) *DT(NQPS) )**2 
SGN=DT( CRA) -DT( PPl ) +QLOSS*ZR 
FN2=XPSS*ZR 
ICALC=1 

CALCULATE  MAIN  CONTROL  VALVE  FLOWS 

140  FLOW=(SQRT(FN2**2+4.0*XPSS*ABS(SGN) )-FN2)/2.0 
ZCALC  = ICALC 

GO  TO  (150, 160,190,200) , ICALC 

150  DT( Q1 ) =SIGN ( FLOW , SGN ) 

QRA  = DT(Q1) -QLOSS 
FN2=XPSS*ZS 

SGN=DT( CSA) -DT( PP2 ) -QLOSS* Z S 

ICALC=2 

GO  TO  140 

160  DT( Q2) =SIGN ( FLOW , SGN ) 

QSA  = DT( Q2 ) +QLOSS 
GO  TO  220 

XPS  = 0 

170  DT( Q1 ) =0 . 

FLOW=0 . 0 
QSA  = QLOSS 
DT(Q2)=0. 

QRA  = -QLOSS 
ICALC=5 


6.103-15 


no  n o o o 
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GO  TO  220 

XPS  GREATER  THAN  0 

180  XPSS=( (DT(XPS)-VLVOL) *DT(NQPS) ) **2 
FN2=ZS*XPSS 

SGN=DT( CSA) -DT( PP1 ) -QLOSS*ZS 
ICALC=3 
GO  TO  140 

190  DT( Q1 ) =S IGN ( FLOW , SGN ) 

QSA  = DT( Q1 ) +QLOSS 
FN2=ZR*XPSS 

SGN=DT( CRA) -DT ( PP2 ) +QLOSS*Z  R 
ICALC=4 
GO  TO  140 

200  DT(Q2)=SIGN( FLOW, SGN) 

ORA  = DT( Q2)-QLOSS 

220  PSA  = DT( CSA) -ZS*QSA 
PRA  =DT(CRA)-ZR*0RA 
VAP=PVAP(  KTEMP(  IND)  ) 

IF ( PRA. GT. VAP. AND. DT( NCAV) . LE. 0 . 0 ) GO  TO  270 
GO  TO  (230, 230,240,240,250) ,ICALC 
230  FLOW=SQRABS ( XPSS* ( VAP-DT ( PPl ) ) ) 

DT(Ql)=FLOW 
GO  TO  250 

240  FL0W=SQRA3S ( XPSS* ( VAP-DT( PP2 ) ) ) 

DT( Q 2 ) =FLOW 

250  QRA= ( DT{ CRA) -VAP) /Z R 
PRA=VAP 

DT( NCAV) =DT( NCAV) +FLOW-QLOSS-QRA 
270  CONTINUE 

DT(PS)  = PSA-PRA 

ACTUATOR  CHAMBER  PRESSURES 

PFLOW=DT( VXLP) *D( AR) 

PDI3=DT{ XLP) *D( AR) 

DT( XIQ1 ) =DT( XIQl ) + . 5*DELT* ( DT( Q1 ) +Q1S ) 
DT(XIQ2)=DT(XIQ2)+. 5*DELT* ( DT( Q2) +Q2S ) 
FQ1=DT( FIBETA)/DT( XIQl ) 

FQ2=DT( FI3ETA)/DT( XIQ2) 

BETA1=DT( I BETA )*( l.+FQ2)/( 1.+FQ1+FQ2) 
BETA2=DT( IBETA ) * ( 1 . +FQ1 ) /{ 1 . +FQ1+FQ2 ) 

PPl l=BETAl* ( 1 • - ( PDIS+D( VOLl ) )/DT(XIQl) ) 

PP2  2=3ETA2* (l.  + (PDIS-D( VOL2 ) )/DT(XIQ2) ) 
PP21=PPll*FQ2/( 1.+FQ2) 

PP12=PP22*FQl/( 1.+FQ1) 

DT(PP1)=PP11+PP12 
DT( PP2)=PP22+PP21 
IF( DT( PPl) .LT. VAP)  DT( PPl ) =VAP 
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IF ( DT ( PP2 ) . LT. VAP)  DT(PP2)=VAP 
DT(PL)  = DT ( PP1 ) -DT( PP2 ) 

C 

c load  dynamics 

c 

FL=OT ( PL) *D( AR) 

TR  = FL*  RFXLP 
DT( XSD) =FL/D( KS ) 

FDRI VE=TR~TAERO 

CALL  CFRIC2( FDRIVE, FF, DT( VXLP) ,DT(VXL) , DT ( T E ) , DT ( XYTE ) , 

1 DT( DELEDI) , DELS , 2 0 1 0 0 0 . ,1.263,1.) 

DT(TE) =FDRIVE+FF-DT( VXLP)  *D{ BE) /RFXLP 

DT ( DELEDI ) = DYNAM( DT( XYTE ) , DT ( DELEDI ) , DT( KINT) ) 

VXLS=DT ( VXL ) 

DT(VXL)  = DT( DELEDI )*RFXLP/D{ IE) 

DT( VXLP) =2.*DT( VXL)-VXLS 
DT ( XYTE ) = DT{ TE) 

XLS=DT( XL) 

DT( XL)  = DYNAM( DT( XYDLED) , DT( XL) ,DT( KINT) ) 

DT ( XLP)  = 2 . * DT ( XL) -XLS 
DT ( XYDLED)  = DT(VXL) 

XFBS=DT( XFB ) 

DT (XFB)  = DT( XL)+DT( XSD) 

DT ( XF3P ) = 2 • *DT ( XFB ) -XFBS 
P1S=DT( PI) 

DT(  P 1 ) = DT ( XPS) *D(  KB) *{ DT{ PS)-5IGN(DT( PL) ,DT( XPS) ) )/APS/D<  KCHAN) 
DT ( PIP) =2.*DT( P1)-P1S 
C 

C POSITION  AND  PRESSURE  FEEDBACK 

C 

DT(VPLI)  = DYNAM ( DT ( XYPL) , DT ( VPLI ) , DT ( KDAMP) ) 

DT(XYPL)  = DT(PL) 

DT  ( VF  3 1 ) = DYNAM  ( DT(  XYXFB)  , D'H  VF3I ) , DT(  KTRANS)  ) 

DT(XYXFB)  = DT(XFB) 

VF  BS  = DT  ( VF13 ) 

DT ( VFB)  =DT(  VF3I ) *D(  KF13)  +DT(  VPLI ) *KC 
DT(VFRP) -2. 0*DT( VF3 ) -VF3S 
C 

C SWITCHING  VALVE  CALCULATIONS 

C 

DO  3010  1=^,6 
IL=L{  I ) 

0(  IL)=0.0 
3010  P(  I L)  =C  ( IL) 

QSV--0. 0 
QRV=0 . 0 
PSV=DT( CSV) 

PRV=DT( CRV) 

NS- 1 

PXP=DT ( XP) *2. 0-DT( XPP) 
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PX5=QT( XS) *2. 0~DT( XSP) 

NDISVP-PXP/OLP 
NOtS  VS=  PXS/OLS 
IF(NDISVS)  3020,3040, 3024 
3020  COh=(  ( PXS+OLS  ) *DT{  COLFVS)  ) **  2 
CQL=COL/(COL*DT(LOSS)+1.0) 

NS  = 3 

GO  TO  3036 

3029  II'(NDIUVP)  30  3 0,3  045,  303b 

3030  NS-2 

3035  COliP-1. 0/(  ( PXP-3IGN  ( OLP,  PXP)  ) *OT(  COLfVP)  ) * * 2 ♦ DT  ( I, OSS) 

COtS-1. 0/( ( PXS-OLS ) * DT ( COLFVS ) ) *»2+DT( LOSS ) 

COL=1.0/(COUP+COL3) 

3036  LS  =tJS*  2 
LR=L(  L.S ) 

LS“L( LS-1  ) 

C SUPPLY  CALCULATION 

X A=( 2( LS) •:  ZS) *COL/2. 0 

OSV=  -ZA+3QHT(  Z A* * 2+AAS ( C(  LS)-DT(CSV)  )*COl.) 

QSV=  SIGN ( QSV, C ( LS ) - DT( CSV) ) 

PSV=DT(  CSV) +ZS*0SV 
0( LS ) “OS V 

P( LS ) *C ( LS ) -QS V*  2 ( LS) 

DT  ( NSIJPHP)  ®C ( LS ) -QRV*  ( Z ( LS  ) - Ai3S  ( QKV)  *COLP) 

C KLITUUN  CALCULATION 

ZA=( 7,{ LR) + ZR) *COL/2,0 

ORV=  -ZA+SQUT(  Z A*  * 2l  ABS  ( C ( LK)-DT(ORV)  )*t’0|.) 

DKV=  SIGN  ( OHV,  C(  LR ) - DT  (CUV)  ) 

PRV=DT( CUV) +ZK*QUV 
Q(  T..R)=QKV 

P( LR ) =C ( LR)-QKV*Z( LR) 

D'l'(  NULTRP)  =C(  LKl-CRV*  ( 7.  ( LR ) - MIS  ( OR  V ) *0OLP) 

3 040  N = 1 

IF(NDISVP)  3043, 3100, 3044 
3043  N = N + 2 

30  44  DT ( N S U PR  P ) ~ P ( L ( N ) ) 

DT  ( N R KTR  P ) = P ( l,(NH)) 

GO  TO  3100 
3045  D'J'(  NSIJPRP)  = PSV 
DT ( N KLTRP ) = PUV 
3100  CONTI NUL 

VL  LPO=  DT ( V l ! L P ) 

PI3ST=P(L(  1 ) ) 

IF { PXP.LT. 0. 1)  PUST=P( L( 2) ) 

PS  PL=  ( 7.SPP-GSPP*  PXP+  P(  L ( 3 ) ) *A2PS2-t  P(  L(  4 ) ) * A4PI<:,-1*(  L ( 1 ) ) * A 1 >'S  1 ) 
PS  P L~  ( PS  P L- VL  LPO*  D 1 N P ) /A  3 PS 

DT  ( VLLP)  =-nVP  + S0HT(  SQ0VP  + 30VP*A;1S(  POST- PS  l‘L)  ) 

DT(VMLP) =S1GN( DT ( VP  LP)  , POST- PSPL) 

DT  ( X P P ) = DT  ( X P ) 

DT  ( X P ) =DT  ( XP ) + ( VL  Ll’O-i  DT  ( VLl.P)  ) * DR LTD 2 


6.103.7  (Continued) 


CALL  XLIMIT(DT(XP) , DT( VELP) , PSPL,-. 2, . 2) 

IF( PSPL.NE. 0.0)  DT( XPP) =DT( XP) 

VELSO=DT{ VELS) 

PBST-DT(NSUPRP ) 

S®  MIL,  6)  ,**48.2 

1 -DT(NSUPRP)*A1SS1) 
pqPL={ PSPL-VELSO*DINP) /A3SQ 

DT(VELS)=-BVS+SQRT( SQBVS+3BVS*A3S( PBbT-P  ) 

DT( VELS )=SIGN{ DT( VELS) , PBST-PSPL) 

OT(XS)i^XS)i(VBLS0+DT(VEMn*DELT02 

CALL  XLIMIT(DT(XS) ,0T(VELS) , PSPL, 2 , . 2 ) 

IF( PSPL.NE. 0. 0)  DT( XSP) =DT( XS ) 

DT ( CSA) =PSV+2S*QSV 

DT(CSV)=PSA~2S*QSA 

DT(CRA)=PRV+2R*QRV 

DT(CRV)-PRA-2R*QRA 

DT( 89 ) =TAERO 

DT( 90) =TR 

RETURN 

END 


0. 104  SUBROUTINE  ACT104 


FIGURE  6.104-1 

TYl'E  NO.  104  SHUTTLE  ENGINE  CONTROL  ACTUATOR 
Tlu:  No.  104  aetuutor  in  a model  oi  a puuh-puBh  aervoactuator . External 
loadu  a. i well  as  trio  lion  are  not  included  in  the  model.  Data  inputs  required 
are  pimltion  l runodueer  gain,  servovalve  gain  constant,  average  effective 
moment  arm  and  piston  area. 
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6.104.1  Math  Model 


This  EC  actuator  math  model  was  derived  from  "Models  for  Use  in  Pressure 
Transient  Simulation  Report"  (388-202-75-080),  written  by  A.  C.  Morseof 
Rockwell  International  Space  Division.  The  model  shown  in  Figure  6.104-2 
takes  the  difference  between  the  position  command  signal  KCOM  and  the 
position  feedback  signal  KPH,  to  generate  commands  to  the  servo  valve  torque 
motor.  The  net  applied  torque  deflects  the  servo  valve  causing  differential 
flow  to  the  secondary  actuator  piston.  The  subsequent  displacement  of  the 
secondary  actuator  which  is  attached  to  the  servo  valve  by  a wire  feedback, 
continues  until  the  valve  is  returned  to  the  equilibrium  flow  position. 

Changes  in  the  position  of  the  secondary  actuator  are  also  transmitted  to 
the  power  spool  through  the  summing  linkage.  The  power  spool  displacements 
XV  generate  differential  flow  to  the  actuator  piston.  The  actuator  position 
is  sensed  as  VF  and  compared  with  the  position  command  VCOM  to  close  the  loop. 

For  purposes  of  interfacing  with  HYTRAN  program  the  Bervoactuator 
schematic:  can  be  considered  as  follows: 


n = Cl  - Q(T.l)  ' 7. (LI) 
P2  = C2  + Q(L1)*Z(L2) 
QC  = XC*SQRT(P1-P2) 
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FIGURE  6.104-2 

BLOCK  DIAGRAM  OF  SSKE  - ENGINE  CONTROL  ACTUATOR 


QL  = XL*SQRT(Pl-P2) 

Q(L1)  = QC  + QL 

Q(L1)  - (XC  + XL) *SQRT(P1-P2) 

2 

Txc+XIT2  “ (C1-C2)-Q(L1)*(Z1+Z2) 

Solving  for  Q(L1)  by  putting  In  quadratic  form 
Q(L1)  - (SQRT(ZT**2+4.0*ABS(CDIFF)/XCL)-ZT)*XCL/2.O 
where: 

ZT  = Z(L1)+Z<L2) 

CDIFF  = Cl  - C2 
XCL  = (XC+XL)2 

6 . 104 . 2 Assumptions 

The  model  does  not  include  static  and  dynamic  friction.  To  save 
computing  time  a common  hinge  moment  arm  has  been  used  for  translating 
force  to  hinge  moment  and  actuator  velocity  to  output  rotational  velocity. 

6 . 104 . 3 Computation  Method 

This  program  uses  Tustin's  method  of  integration  and  ia  arranged  such 
that  each  differential  is  evaluated  using  the  latest  value  of  the  previous 
integral,  in  a series  calculation,  rather  than  the  more  usual  parallel 
integration  methods,  where  the  integrals  are  effectively  evaluated  simul- 
taneously using  previous  values  to  evaluate  the  derivatives. 

The  use  of  the  series  integration  is  difficult  to  justify  except  by 
stating  that  it  seems  to  work  better  than  the  other  method  under  certain 
conditions . 

1000  9ection 

This  section  adjusts  RH0  dependent  variables  for  the  input  temperature. 
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1500  Section 


This  section  is  used  to  return  values  for  the  steady  state  calculation  so 

that  the  system  state  conditions  can  be  calculated.  It  is  assumed  that  the 

actuator  is  at  zero  velocity,  hence  the  only  steady  state  flow  is  that  due  to 

the  first  stage  servo  valve  leakage.  The  first  stage  impedance  1.0/(DT(KQL)**2 
2 

is  added  to  the  Q value  in  PQLEG  (INEL,8),  and  the  pressure  drop  DT(KQ)*XCL 
is  subtracted  from  the  inlet  pressure  PQLEG(INEL, 11) . 

2000  Section 

This  section  is  used  to  initialize  the  variables  to  their  steady  state 
values.  The  variables  are  zeroed  since  to  initialize  the  variables  at  any  condi- 
tion other  than  zero  velocity  would  be  very  difficult. 

3000  Section 

The  transient  section  of  the  program  is  coded  to  follow  the  flow  path 
of  the  model  diagram,  starting  with  the  input  position  command  DT(KCOM). 

DT(KCOM),  is  varied  by  the  guidance  and  control  subroutine  CAD98  or  its 
equivalent  in  the  same  way  as  it  is  in  the  actual  vehicle,  with  the  value 
being  updated  at  20  millisecond  intervals.  The  CAD98  subroutine  uses  the 
latest  value  of  actuator  position  feedback  voltage  DT(KPH)  in  its  calcula- 
tions as  an  indication  of  the  actuator  position. 

Me  interface  between  this  subroutine  ACP.J4  and  the  guidance  and  control 
subroutine  CAD98  is  via  the  following  variables  DT(1)  and  DT(2). 
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Variable 


Description 


Dimensions 


DT(KCOM)  Input  position  command  Volts 

(Calculated  by 

CAD98) 

DT(KPH)  Actuator  position  Volts 

(Calculated  by 
ACTIO 4) 

The  line  pressures  and  flows  are  returned  via  the  P and  Q arrays  using 
the  address  L(l)  and  L(2)  for  the  supply  and  return  connections  respectively. 

6.104.4  APPROXIMATIONS 
None. 

6.104.5  LIMITATION 

The  assumption  of  "no  load"  on  the  actuator  may  give  the  actuator  a 
higher  response  than  would  actually  occur  under  a high  load  condition. 
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6.104.6 

Variable  Names 

Variable 

Description 

Dimension: 

AMPKT 

Constant  (KAMP*K1’*KV) 

— 

CDIFF 

C(L1)-C(L2) 

PSI 

DELT02 

DELT/2 

SEC 

D(KAMPI) 

Constant  (57 .3/ (Effective  Mcment 
Arm*  Piston  Area)) 

DEG/ IN' 

D(KC) 

Servovalve  Gain  Constant  for  100°F 

— 

DT(KCOM) 

Position  Command 

VOLTS 

DT(KCT) 

Servovalve  Gain  Constant  for  Run 
Temperature 

— 

D(KF) 

Position  Transducer  Gain 

V/DEG. 

DT(KI’H) 

Actuator  Position  Feedback  Voltage 

VOLTS 

DT(KQ) 

Actuator  Flow 

CIS 

DT(KQI) 

Actuator  Displacement 

IN3 

DT(KQL) 

Old  Value  of  Actuator  Flow 

CIS 

DT(KXLK) 

Leakage  Leg  Constant  for  Run 

— 

Temperature 

LI 

Dummy  Variable  for  L(l) 

— 

l:. 

Dummy  Variable  for  L(2) 

— 

VE 

Difference  Between  Command  and  VaDve 

VOLTS 

Position 

VILM 

Constant  (ILM/KAMP) 

— 

XC 

Flow  Constant  for  Actuator  Leg 

— 

XCL 

Constant  (Sum  of  Flow  and  Leakage  Leg 

— 

Constants  Squared) 

XLK 

Leakage  Leg  Constant  for  100°F 

— 
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ZT 


DT(KLAG) 

D(LAG) 


Sum  of  Ll  and  L2  Characteristic 
Impedancer 

Integration  Constant 

First  Order  Lag  Time  Constant 


o r» 


6.104.7  Subroutine  Listing 


SUBROUTINE  ACT104  (D,DT,DD,L) 

C ***  REVISED  NOV  3,1975  *** 

C ***  SHUTTLE  SSME  ENCINE  CONTROL  ACTUATOR  MODEL 
DOUBLE  PRECISION  DD 
DIMENSION  D( 1} ,DT( 1) ,DD{1) ,L( 1) 

COMMON  NTELPL , NTOLPL, I PT , I POINT, NPTS , INEL, KNEL, 

1 NTOPL, NLPLT (61,3) , PQLEG{ 90,12} ,LCS(90,10) ,ILEG(1400) , 

2 PN  ( 9 0 ) , QN  ( 9 0 ) 

C0MH0N/SU3/PARM( 150,9) ,PM( 1500) ,QM{ 1500) ,P( 300) ,Q( 300) ,C( 300) 

1 ,  Z ( 300) , RHO( 20) ,S20RHO( 20) ,VISC( 20) ,BULK( 20) ,TEMP( 20) ,PVAP( 20) 

2 ,  AT PRES , T , DELT ,TFI NAL, PLTDEL, PI, TITLE ( 20) , LEGN, ICON 

3,  KTEMP( 99) ,LSTART( 150) ,NLPT( 150) ,LTYP£( 99) ,NC( 99 ) , INX, INZ 

4, INV, ISTEP, NLINE , NEL, IND, IENTR , MNLINE , MNEL, MNLEG , MNNODE , MNPLOT 
5 , MNLPTS , MDS 
C ***  D ARRAY  VARIABLES 

DATA  KF/1/ , KC/2/ , KAHPI/3/ , LAG/ 4/ 

C ***  DT  ARRAY  VARIABLES 

DATA  KCOM/ 1/ , KPH/ 2/  , KQL/3/  , KQ/4/  , KQI/5/  , KXLK/6/  , KCT/7/ 

1 , K LAG/3/ , KCOMS/ll/ , KCOMN/1 2/ , KCOML/1 3/ 

DATA  AMPKT/ . 03688/ , VILi'l/  . 134162/,  XLK/  . 02108/ 

AM  P KT  = K AM  P * KT  * K V , V I LM  = I LM/  K Ai  1 P 

XLK=1 , 155* ( 1/SQRT( 3000) ) , KAMPI=57 . 3/ ( A*M ) 

IF(IENTR)  1000,2000,3000 
1000  CONTINUE 

IE  (INEL. ME. 0)  GO  TO  1500 

XCL=S  20RHO( KTEMP( IND) )/SQRT( 2./7. 82E-5) 

DT ( KXLK) =XLK*XCL 
DT ( KCT) =D( KC ) *XCL 
DT( KCOM) =0 . 0 

CALL  TUSTIN ( 2,D( LAG) , DT( KLAG) , DELT) 

RETURN 

1500  XCL=1. 0/DT( KXLK) **2 

PQLEG( INEL, 3 ) -PQL£G( INEL, 3)+XCL 
DT(KO)=PQLEG( INEL, 1 ) * * 2* PQLEG( INEL, 2) 

PQLEG( INEL, 11)=PQLEG( INEL, 11)- DT ( KQ) *XCL 
RETURN 

2000  CONTINUE 

DT( KQ) =0 . 0 

DT( KPH ) =DT( KCOm ) 

DT{  KQI ) =DT(  KPH ) /D(  KAllPI ) 

DELTQ2=DELT/ 2.0 
DT( KCOML) =DT( KCOM) 

DT ( KCOMS ) = DT ( KCO.'l ) 

RETURN 

3000  CONTINUE 
L1=L( 1) 

L2=L( 2) 

ZT=Z ( LI ) +Z ( L2 ) 

DT(  KCOilN ) =DT(  KCOM ) 

DT(  KCOML)  =DYNAll(  OT(  KCOMS ) ,DT(KCOl-jL)  , DT(KLAG)  ) 
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6.104-7  (Continued) 

DT( KCOrtS ) = DT ( KCOMN ) 

VE=D( KF ) * ( DT(  KCOi'lL)  -DT(  KPH ) ) 

CDIFF=C( Ll)-C{ L2) 

IF( ABS(VE) .GT. VILM)  VE=SIGN( VILM, VE) 
XC=VE*AiiPKT*DT(  KCT) 

XCL=( DT( KXLK) +ABS ( XC ) )**2 

Q(Ll)=(SQRT(ZT**2+4.0*ABS(CDIFF)/XCL)-ZT)*XCL/2.0 
Q(L1)=SIGN(Q(L1) ,CDIFF) 

P{L1)=C{L1)-Q(L1)*Z( LI) 

Q( L2) =-Q( LI ) 

P(L2)=C(L2)-Q{L2)*Z( L2) 

DT(KQL)=DT(KQ) 

DT(KQ)=XC*SQRA3S(P(L1)-P(L2) ) 

DT( KQI ) =DT( KQI ) +{ DT( KQL) +D7( KO) )*DELT02 
DT( KPH ) =DT{ KQI ) *D( KAMPI) 

RETURN 

END 
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6.105  SUBROUTINE  ACTIOS 


Subroutine  ACT105  models  the  shuttle  thrust  vector  control  (TVC) 
actuators,  the  layout  of  which  is  shown  in  Figure  6.105-1.  The  TVC  actuators 
operate  from  three  pairs  of  hydraulic  supply  and  return  lines.  The  supply 
and  return  used  is  selected  by  a switching  valve  module  as  shown  in  Figure 
6.105-2.  For  the  purpose  of  modeling  the  switching  valve  module  is  considered 
to  be  separated  from  the  actuator  by  a pair  of  pseudo  lines.  The  input 
command  and  hinge  moments  are  supplied  by  a Guidance  and  Control  subroutine 
which  updates  the  values  at  each  sample  time  interval  of  the  guidance  system 
which  is  .04  seconds. 

6.105.1  Math  Model 

This  TVC  math  model  was  derived  from  that  proposed  by  Rockwell  International. 
The  model  shown  In  Figure  6.105-1  uses  the  position  command  signal  VC  to 
generate  commands  to  the  servo  valve  torque  motor.  The  applied  torque  deflects 
the  servo  valve  causing  differential  flow  to  the  secondary  actuator  piston. 

The  subsequent  displacement  of  the  secondary  actuator,  which  is  attached  to  the 
servo  valve  by  a wire  feedback,  and  to  the  main  ram  by  mechanical  linkage, 
continues  until  the  valve  is  returned  to  the  equilibrium  flow  position.  Changes 
in  the  position  of  the  secondary  actuator  are  transmitted  to  the  power  spool 
through  the  summing  linkage.  The  power  spool  displacement,  XFS,  generates 
differential  flow  to  the  main  ram  causing  actuator  deflection.  The  deflection 
is  sensed  as  XFB  and  is  feed  back  to  the  servo  valve  as  a torque  to  close  the 
loop.  Demand  flow  on  the  hydraulic  system  is  generated  by  the  sum  of  the  flow  to 
the  main  ram  with  the  flow  to  four  secondary  actuators  plus  first  stage  leakage. 
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PUMP  PUMP  PUMP 

SYSTEM  1 SYSTEM  2 SYSTEM  3 


6.103.2  Assumptions 


The  model  is  limited  to  simulating  one  channel  of  the  secondary 
actuator  and  it  is  assumed  that  the  other  channels  if  operative  will 
give  identical  outputs,  in  terms  of  available  force  at  the  main  control 
valve. 

The  model  of  the  surface  actuator  includes  static  and  dynamic 
friction.  To  save  computing  time  a common  hinge  moment  arm  has  been 
used  for  translating  force  to  hinge  moment  and  TVC  velocity  to  actuator 
velocity. 

The  actuator  velocity  conversion  is  not  quite  correct  since  the 
actuator  position  is  the  sum  of  the  TVC  deflection  and  structural 
deflection. 

6.103.3  Computation  Method 

The  method  used  for  computation  is  based  on  the  previous  program 
developed  for  the  elevon  actuator. 

This  program  uses  Tustin's  method  of  integration  and  is  arranged 
such  that  each  differential  is  evaluated  using  the  latest  value  of 
the  previous  integral,  in  a series  calculation,  rather  than  the  more 
usual  parallel  integration  methods,  where  the  integrals  are  effectively 
evaluated  simultaneously  using  previous  values  to  evaluate  the  derivatives. 

Predicted  values  are  used  to  improve  the  calculation  where  the  use 
of  a previous  value  would  incur  a significant  error.  The  computation 
follows  the  usual  component  subroutine  layout  shown  in  Figure  6.1-1  on 
page  6.1-2. 

1000  Section. 

This  section  is  used  to  initialize  variables  used  by  the  program. 

For  the  most  part,  the  integration  variables  are  zeroed  and  the  Tustin 
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subroutine  is  called  to  initialize  the  integration  constants. 

1500  Section 

This  section  is  used  to  return  values  for  the  steady  state  calculation 
so  that  the  system  state  conditions  can  be  calculated.  It  is  assumed  that 
the  secondary  and  power  actuators  are  at  zero  velocity,  hence  the  only  steady 
state  flow  is  that  due  to  the  first  stage  servo  valve  leakage.  The  first 
stage  impedance  1.0/(D(KQLOSS)*D(KCHAN))**2  is  added  to  the  value  in  PQLEG 
(INEL,8),  and  the  pressure  drop  DELP  is  subtracted  from  the  inlet  pressure 
PQLEG (INEL, 11). 

2000  Section 

This  section  is  used  to  initialize  the  variables  to  their  steady 
state  values.  The  only  variables  involved  for  the  subroutine  are  the 
actuator  pressures  which  are  set  at  the  mean  of  the  inlet  and  return 
pressures.  The  effect  of  the  internal  load  is  to  vary  the  pressures 
either  side  of  this  mean.  Most  of  the  other  variables  are  zeroed  since 
to  initialize  the  TVC  actuator  variables  at  any  condition  other  than  zero 
velocity  would  be  very  difficult. 

3000  Section 

The  transient  section  of  the  program  is  coded  to  follow  the  flow 
path  of  the  model  diagram,  starting  with  the  input  position  command  DT(VC). 
DT(VC),  is  varied  by  the  guidance  and  control  subroutine  or  its  equivalent 
in  the  same  way  as  it  is  in  the  actual  vehicle,  with  the  value  being  updated 
at  A0  millisecond  intervals.  The  six  degree  of  freedom  (SDF)  subroutine  uses 
the  latest  value  of  actuator  position  feedback  DT(XFB)  in  its  calculations 
as  an  indication  of  the  actuator  position.  The  SDF  program  also  calculates  a 
hinge  moment  at  zero  actuator  position  and  the  slope  of  hinge  moment  versus  posi- 
tion. 
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ACT105  uses  the  zero  and  slope  values,  * interpolate  values  of  TAERO 
until  those  values  are  updated  by  the  next  guidance  and  control  computation. 
The  interface  between  t-his  subroutine  ACT105  and  the  guidance  and  control 
subroutine  is  via  the  following  variaoles  DT(1)  thru  DT(5). 


Variable 

Description 

Dimensions 

DT (VC) 
(Calculated 

by  SDF) 

Input  position  command 

Volts 

DT (XFB) 
(Calculated 

by  ACT105) 

TVC  actuator  position 

In 

DT (KAERO) 
(Calculated 

by  SDF) 

TVC  hinge  moment  at  zero  stroke 

In  lbs 

DT (KAEROP) 
(Calculated 

by  SDF) 

TVC  hinge  moment  slope 

T.n  lbs/ In 

The  line  pressures  and 

flows  are  returned  via  the  P and 

Q arrays  using 

the  address  1,(1)  - L(6)  for  the  supply  and  return  connections. 

The  input  command  DT(VC)  is  feed  via  a first  order  lag  to  the  junction, 
where  it  is  summed  with  a predicted  feedback  value. 

The  error  is  passed  through  a limiter  to  the  servo  valve  which  converts 
it  to  torque.  The  torque  is  summed  with  the  spring  feedback  from  the 
secondary  actuator  and  the  pressure  feedback  across  the  secondary  actuator 
piston. 

The  flow  calculation  uses  the  supply  and  pressures  from  the  previous 
time  step  to  calculate,  a new  flow.  The  flow  is  passed  through  a simple  lag 
to  denote  the  servo  valve  time  delay,  and  is  then  integrated  to  obtain  a 
new  secondary  actuator  (iruin  contro,  valve)  position. 

The  actuator  position  is  tested  against,  its  limits,  if  it  is  at  a limit 
then  the  secondary  actuator  flow  is  set  to  zero. 

The  flaw  through  the  main  control  valve  is  calculated  using  the  pre- 
dicted actuator  cavity  pressure  and  the  valve  orifice  equations  which  are 
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solved  In  conjunction  with  the  line  characteristic  equation. 


The  line  characteristic  pressure  is  reduced  by  an  amount  equal  to  the 
secondary  actuator  flow  plus  the  leakage  flow  times  the  characteristic 
impedance.  This  method  avoids  the  need  for  a simultaneous  solution  which 
would  have  required  a more  expensive  iterative  solution. 

The  computed  flows,  which  are  positive  when  flowing  into  the  actuator 
cavities,  are  then  integrated.  The  integrated  flows  are  summed  with  the 
actuator  displacement  flow  and  the  difference  is  used  to  compute  a new 
actuator  cavity  pressure. 

The  cavity  pressure  computation  is  complicated  by  the  actuator  deflec- 
tion due  to  differential  pressure  acting  on  the  structural  stiffness. 

If  solved  sequentially,  an  arithmetic  loop  is  created  which  creates 
computational  instability.  This  was  avoided  by  reformulating  the  loop  to 
give  a direct  solution  for  actuator  cavity  pressures,  with  the  structural 
stiffness  being  integrated  into  the  calculation. 

The  remaining  part  of  the  computation  follows  the  block  diagram. 
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SWITCHING  VALVE  SECTION 


The  final  section  of  the  TVC  subroutine  describes  the  operation  of 
the  switching  valve  or  selector  valve  as  it  is  sometimes  called.  The 
valve  model  is  set  up  as  an  independent  model  to  that  of  the  TVC  and 
is  connected  to  the  actuator  via  pseudo  lines,  which  provides  the  numerical 
isolation  required. 

Because  of  the  TVC  package  dimensions,  these  pseudo  lines  do  have 
some  factual  basis  in  that  there  is  a significant  flow  path  length  between 
the  connections  and  the  main  control  valve.  The  valve  pressure  loss  in 
each  flow  path  is  assumed  to  be  contributed  by  two  separate  orifice  coefficients, 
due  to  the  inlet  holes  through  the  sleeve,  and  due  to  the  valve  metering 
orifices. 

There  are  four  .375"  dia  inlet  holes.  The  metering  orifice  has  four  slots, 
0.5"  wide  0.2"  long.  This  configuration  is  repeated  for  each  flow  path,  in 
the  primary  and  secondary  sections  of  the  valve. 

The  pressure  drop  for  each  orifice  will  be 
= (Q/(AREA*CD))2*RHO/2 
= 8*10-5/. 652/2  * Q2/AREA2 
for  Q = 150  CIS 

= 2. 13 /AREA2 

= 13.31  psi  for  metering  orifice 
= 10.9  psi  for  the  four  holes 
= 26.22  for  each  valve  flow  path 

= 96.99  psi  for  supply  and  return  for  the  primary  system 
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SWITCHING  VALVE  LAYOUT 
FIGURE  6.105-4 


The  pressure  drop  across  the  valve  holes 

AP  = Q2*DT(LOSS) 
where  the  loss  coefficient 

DT (LOSS)  = RHO/(2*.652*aREA2) 

= .000485  @ 130°F 

or  = RHO  * 6.06 

This  combination  of  orifices  is  only  significant  when  the  valves 
are  fully  open,  the  predominant  loss  occurs  when  the  valve  displacement 
is  less  than  0.1"  during  the  switching  cycle. 

It  is  under  switching  conditions  that  the  actual  stability  of  the 
model  becomes  significant.  When  the  start  up  conditions  are  normal, 
switching  occurs  from  it  1 to  #2,  and  then  #2  to  it 3.  Under  these  conditions 
the  bootstrap  arrangement  will  give  a positive  or  stable  switching 
characteristic.  The  real  stability  problem  occurs  when  the  system  is 
switching  from  it 3 to  it 2 or  it 2 to  it  1 when  the  pump  is  being  repressurized. 
Fortunately  this  particular  situation  will  occur  at  low  or  zero  flows. 

The  high  water  hammer  pressures  , associated  with  valve  closure  when 
there  is  a high  flow  demand,  will  probably  not  occur  during  reverse  switching. 
Math  Model 

Valve  Positions  - The  valve  positions  are  predicted  based  on  the 
positions  at  the  last  two  time  steps. 

PXP  » DT (XP)*2-DT (XPP) 

Predicted  values  are  used  to  i nprove  the  computation  accuracy 
during  switching,  no  effort  is  made  to  correct  the  computations  when  the 
final  positions  are  computed.  The  choice  of  a predicted  position 
computation  was  based  on  the  need  to  use  a valve  position  nearer  to  the 
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true  value,  but  still  avoiding  the  predictor  — corrector  type  of 
computation,  which  leads  to  stability  problems. 

The  computation  would  be  improved  by  the  use  of  a very  small  time 
step,  but  it  is  doubtful  if  there  would  be  any  significant  improvement 
in  the  overall  system  accuracy. 

The  initial  position  of  the  valve  is  determined  from  the  system 
indicator  INV  which  indicates  the  conditions  of  the  three  systems. 

This  is  translated  into  the  local  system  indicated  (ISYS) . 

where 

L(ISYS)  = 1 primary  system  active 

L(1SYS)  * 2 first  back-up  active  primary  failed 

L(1SYS)  = 3 second  back-up  active  primary  and  first 

back-up  failed 

The  valve  positions  at  the  L(ISYS)  « 1 condition  are  both  +0.2 
inches.  The  positions  for  L(ISYS)  = 3 are  -0.2  inches. 

There  are  two  valves  in  series  for  the  No.  1 and  No.  2 systems, 
and  just  one  for  the  No.  3 system.  The  two  valves  are  normally  called 
No.  1 and  No,  2 selector  valves,  but  to  avoid  confusion  with  the  line 
connections,  we  have  used  primary  and  secondary  as  the  valve  names. 

The  two  valves  are  almost  identical  except  for  the  end  areas,  which 
are  varied  to  provide  some  difference  in  the  switching  pressures.  The 
basic  philosophy  is  to  make  the  primary  valve  move  and  switch  before 
the  secondary  valve  responds. 

The  achievement  of  this  will  depend  on  the  transient  pressures 
that  occur  during  switching. 
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The  reference  pressures  DT(NSUPRP)  and  DT(NRETRP)  are  the  supply 
and  return  pressures  at  the  outlet  side  of  the  primary  valve.  These 
reference  pressures  control  the  switching  of  the  secondary  valves. 

Springs  are  used  to  position  the  valves  on  start  up. 

At  the  time  of  writing,  there  is  no  data  on  the  damping  effects  of 
the  small  diameter  holes  connecting  the  return  or  pressure  ports  and  the 
bootstrap  area  end  of  the  valve.  Scaling  the  drawings  available  show  the 
hole  to  be  approximately  .1"  diameter  and  about  1.2"  long. 

The  max  valve  velocity  is  expected  to  be  about  80  in/sec  which  would 
give  a flow  of  approximately  21  CIS.  Using  the  diameter  and  length  we  can 
generate  an  equivalent  orifice  coefficient  for  the  flow  restriction. 

A plain  orifice  of  .1"  dia  gives  a coeff  of  1.25  PSI/(CIS)^  plus 
a smaller  contribution  from  the  pole  length  gives  a total  of  1.4  PSI/CIS^ 

At  the  21  CIS  flow  this  will  give  a pressure  drop  of  617  PSI  which  will 
have  a significant  effect  on  the  bootstrap  pressure. 

In  going  from  the  initial  position  of  PXP=.2"  to  the  switches  position 
of  PXP=  -.2",  oil  is  pumped  out  of  the  bootstrap  cavity,  initially  into 
the  PI  supply  and  later  when  PXP  <,1",  it  is  pumped  into  the  R1  return. 

The  bootstrap  reference  pressure  PBST  is  switched  when  PXP  <,1  from  PBST  »• 
P(L(1»  to  PBST  = P(L(2)  ) . 

The  spring  pre-load  is  5 ibs  @ XS  = .2  and  the  spring  rate  is 
50  lbs/in. 

This  makes  the  spring  load 
*•>  ZSPP-DDISVP*SSPP 

where  ZSPP  = 5 + .2*50 
• 15  lbs. 

and  SSPP  = 50  lbs/in 
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The  predicted  valve  displacement  PDISVP  is  used  for  the  calculation. 
In  calculating  the  valve  velocity,  the  inertia  and  damping  forces  are 
considered.  The  inertial  forces  are  normally  small, but  very  high 
accelerations  are  required  to  achieve  switching  in  10  Milliseconds.  With 
a stroke  of  .4"  and  assuming  constant  acceleration 
ACCN  = .4*2*104  = 8000  in/sec2 

FORCE  = .002x8000  16  lbs. 

6.105.5  Approximations 

The  servo  valve  first  order  lag  of  0.005  seconds  is  an  approximation. 

6.105.5  Limitations 

The  TVC  module  can  be  used  to  simulate  the  overall  response  of  the 
actuator  and  surface  to  commands  vrom  the  SDK  program.  Because  of  the 
simplification  in  the  area  of  the  secondary  actuator  the  small  signal  re- 
sponse is  better  than  can  be  expected  in  practice.  The  simulation  of  the 
switching  valve  is  not  ideal,  because  of  the  very  fast  response  of  these 
valves.  To  improve  the  model  would  require  a much  smaller  time  step. 
Should  these  limitations  become  a problem,  a smaller  time  step  can  be  used 
with  .ome  minor  program  changes  and  of  course  an  increase  in  cost. 

6.105.6  Variable  Nais^s 


Variable 

Description 

E3P* 

Dimensions 

APS 

Working  Area  of  Power  Spool 

in2 

D(AJR) 

Effective  Ram  Actuator  Area 

20.03 

in2 

D(BE) 

Effective  TVC  Damping  Coefficient 

1000. 

16-sec 

in 

EPS  7 

Net  Error  Torque 

in-lb 

EYE 

Input  Current 

ma 

EYEL 

Servo  Amplifier  Saturation  Limit 

50.0 

ma 

6.105-14 


Variable 

Description 

E3P* 

Dimensions 

FDRIVE 

Net  Ram  Force 

lb 

FF 

Friction  Force  on  Ram 

lb 

FL 

Ram  Force  Applied  to  Load 

lb 

D(IC) 

Engine  Moment  of  Inertia  About  Hinge 
Line 

48400 

in-lb-sec^ 

KA 

Servo  Amplifier  Gain 

11. 

ma/v 

KB 

Bernoulli  Force  Coefficie 

.702 

in 

D (KCHAK) 

Number  of  Operative  Channels 

— 

KDEL 

Dynamic  Pressure  Feedback  Gain 

. y 

__ 

KDPF 

Dynamic  Pressure  Feedback  Gain 

.00062 

in  lb/PSI 

KE 

Dynamic  Pressure  Feedback  Integrator 
f tin 

59.4 

— 

D(KFB) 

Actuator  Feedback  Gain 

.367 

in-lb 

in 

KQLOSS 

First  Stage  Leakage  Coefficient 

.0237 

CIS/PS1 

D(KQPS) 

Power  Spool  Flow  Gain 

121.0 

CIS/lb 

KQS 

Secondary  Valve  Flow  Gain 

3.743 

in3/ (SEC  lb3) 

D(KS) 

Structural  Stiffness 

226000. 

lb/ in 

KTM 

Torque  Motor  Gain 

.04 

in-lb 

ma 

D(KXPS) 

Power  Spool  Feedback  Gain 

5.82 

in-lb 

in 

D(MAO) 

First  Moment  Arm  Constant 

27.79 

in 

D (MAI) 

Second  Moment  Arm  Constant 

-.3499 

in/in 

D(MA2) 

Third  Moment  Arm  Constant 

-.00787 

in/in^ 

VLVOL 

Power  Spool  Overlap 

.0006 

in 

D(VOLI) 

#1  Cavity  Volume  at:  Mid-stroke 

122.0 

in3 

D(V0L2) 

#2  Cavity  Volume  at  Mid-stroke 

115.0 

in3 
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Variable 


E3P* 


Dimensions 


Description 

XPSL  Power  Spool  Displacement  Limit  .05  in 


* Engine  No.  3 Pitch  TVC. 


A1PS1 

Primary  valve  AREA1 

IN 

A1SS1 

Secondary  valve  AREA1 

A2PS2 

Primary  valve  AREA2 

11 

A2SS2 

Secondary  valve  ARF.A2 

A3PB 

Primary  valve  AREA3 

11 

A3  SB 

Secondary  valve  AREA3 

A4PR2 

Primary  valve  AREA4 

It 

A4SR2 

Secondary  valve  AREA4 

BBVP 

Damping  coeff. 

- 

BVP 

Damping  & inertial  coeff. 

COE 

Combined  orifice  coef. 

DT(C.OEFVP) 

Metering  orifice  coef. 

CIS/(PSI)1/2/lN 

DT (COEFVS) 

Metering  orifice  coef. 

tl 

COEP 

Primary  combined  orifice  coef . 

psi/(cis)2 

COES 

Secondary  combined  orifice  coef. 

It 

BELT 02 

DELT  2 . 0 

DINP 

Spool  inertia  coef 
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DORFCP 

DORFCS 

I 

IA 

IL 

IN 

IPASS 

L(ISYS) 

DT (LEAK) 

DT (LOSS) 

DT(LSWACT) 

N 

NDI.SVP 
NDISVS 
DT (NRETRP) 
NS 

DT(NSUPRP) 

OLP 

OLS 

PBST 

PDEI/FA 

PXP 

PXS 

PSPL 

QS 


Spool  damping  orifice  coef 

Spool  damping  orifice  coef 

Do  loop  counter 

Actuator  line  address 

Line  address 

Connection  number 

Calculation  counter 

Active  system  indicator 

Leakage  coeff  when  valves  are  closed 

Orifice  coef  of  inlet  holes 

Combined  coef  oc  metering  orifice  and  hose  coef 

Connection  counter 

Integer  position  indicator 

Integer  position  indicator 

Return  reference  pressure 

System  indicator 

Supply  reference  pressure 

Primary  valve  overlap 

Secondary  valve  overlap 

Bootstrap  reference  pressure 

Steady  state  pressure  drop 

Predicted  value  of  XP 

Predicted  value  of  XS 

Pressure  exerted  by  spool  forces  on  bootstrap 
vo lume 

Flow  through  valve 


PSI/CIS2 

PSI/CIS2 


IN 

IN 

PSI 

PS1 

IN 

IN 

PSI 
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SQBVP 


BUP2 


SSPP 

Spring  slope  or  rate 

LBS/IN 

DT (VELP) 

Primary  spool  velocity 

IN/ SEC 

VELPO 

Previous  value  of  DT(VELP) 

IN/SEC 

DT(VELS) 

Secondary  spool  velocity 

IN /SEC. 

VELSO 

Previous  value  DT(VELS) 

IN/SEC 

DT(XP) 

Primary  valve  position 

IN 

DT(XPP) 

Previous  value  of  XP 

IN 

DT(XS) 

Secondary  value  position 

IN 

DT(XSP) 

Previous  value  of  XS 

IN 

ZA 

Temporary  impedance 

PSI/CIS 

ZSPP 

Spring  load  at  zero  position 

LBS 
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6.105.7  Subroutine  Listing 


SUBROUTINE  ACTIO 5 ( D , DT , DD , L) 

*****REVISBD  NOVEMBER  1975  **** 

SHUTTLE  SSME  TVC  ACTUATOR  MODEL 

DOUBLE  PRECISION  DD 

COMMON  NT EL PL, NTOLPL, I PT, I PO I NT, NPTS , INEL, KNEL,NTOPL,NLPLT( 61,3), 

1 PQLEG( 9 0 , 12)  , LC  S ( 9 0 , 10) , ILEC(  1400), PN (90), ON (90) 

COMMON/ SUB/ PARI4 ( 150,9)  , PM ( 1500)  ,QM(  1500)  ,P(  300)  ,Q(  300)  ,C(  300) 

1,  Z( 300) , RHO( 20) ,S20RHO( 20) , VI SC ( 20) ,BULK( 20) ,TEMP( 20) ,PVAP( 20) 

2 ,  ATPRES , T , DELT , TF INAL, PLTDEL, PI, TITLE (20) „LEGN,ICON 

3 ,  KTEMP( 99) , LSTART( 150) ,MLPT( 160) ,LTYPL(99) ,NC(99) ,INX,INZ 

4,  INV,  ISTEP,NLINE,NLL,  INI),  T ENT  R , MNLTNE  , MNEL , MN  LEG , MNNODE  , MN  PLOT 

5 ,  MNLPTS , MDS 

REAL  KA , KTM , KQS , KUEL, KDPF , KE , KQLOSS 
INTEGER  AR , BE , VC , P 1 , XPS , 

2 TXPS , PS , XYQS , OS , XQ1  , 

3 XYXPS  D , XPSD XPS  I , Q]  , Q2  , PPl , PP2  , XYTE  , TE  , D E L EDI , 

4 XYDLED, VXL, RKXL, XL, XSD, PL, VPT , XFB, 

5 VO  LI , VOL?. , VXLP,  XFBP,  PIP 

6 , TP , TPN  , OPPB , DPI' BP , PI  BETA  , XI.P,  XIQl , XIQ2,  VCS  , VCN  , VCL 

7 , CRA, CSA,CRV,CSV 

8 , XP, XPP, VELP, XS , XS  P, VE  LS , COLE VP , COEFVS 
DIMENSION  D( 16) ,OT( 100) , DD( 1) ,L( 10) 

***  D ARRAY  VARIABLES 

DATA  KC HAN/ 1/ , KB/ 2/ , KQPS/ 3/ , AR/ 4/ , KS/ 5/ , I E/6/ , BE/ 7/ , KE B/ 8/ , 

2  VOL1/9/ , VOL2/ 1 0/ , NXPS/ 1 1/ , MA0/1 2/ , MAI/ 1 3/ , MA 2/ 1 4/ 

***  DT  ARRAY  VARIBLKS 

DATA  VC/ 1 / , KAERO/ 4/ , KAbROP/ 5/ , 

1 Pl/6/,XPS/7/,TXPS/8/, PS/9/, XYQS/  0/,QS/ll/, 

2 XQI/1 2/ , NQLOSS/ 14/ , NQS/ 1 5/ , NQPS  l 6/ , NC A V/ 1 7/ , 

.3  I BETA/ 18/ , XYXP3D/ 1 9/  , XPSD/  20/ , XPS  1/21/ , Ql/  2 2/ , 

4 Q2/2 3/ , PPl/ 2 4/, PP2/26/ , XYTE/ 2 6/ , TE/27/ , DELED 1/28/ , 

5 XY DLED/ 2 9/ , VXL/ 3 0/ , REX L/ 3 1/ , XL/ 3 2/ , XS 0/ 3 3/ , 

6 PL/ 3 5/, VPI/3 6/ , XE 0/ 3 8/ , K1NT/ 3 9/ , KE LOW/ 4 2/ , VXL  P/ 4 5/ , XFBP/ 4 6/ , 

1 PIP/4  7/ , TPN/4  8/ , DPFB/4  9/ , DPE3P/50/ , El BETA/ 51/, 

2 XLP/ 5 2/ , XI Ql/ 5 3/ , X I Q2/ 5 4/ , KCOM/ 5 5/ , VC S/ 5 8/ , VCN/ 5 9/ , VC L/ 6 0/ , 

3 XP/  6 1/  , X P P/  6 2/  , VE  L P/  6 3/  , XS/  6 4/  , XS  P/  6 5/ , VE  LS/  6 6/  , 

4 CGEFVP/ 6 7/  , COE P VS/ 6 8 / , LOSS/ 6 9/  , LEAK/ 7 0/  , LSWACT/  7 1/  , 

5 NSUPRP/7  2/ , NRETRP/ 73/ , I SYS/ 8/ 

6 , CS A/ 7 4/  , CS  V/  7 5/  , C RA/  7 6/  , C RV/  7 7/  , T P/ 7 8/ 

***  INITIALIZE  CONSTANTS  COMMON  TO  ALL  ACTUATORS  *** 

DATA  VLVOL./  . 0 006/  , KDEL/  . 2/  , K D PF / . 00  06  2/  , KE/  59 . 4/  , 

1 DORFCP/. 5/, DOKFCS/. S/,OLP/. 005/ , OLS/. 005/, ZS PP/ l 5 . / , SSPP/50 . / , 

2 AlPS  1/  . 338  / , A2.PS  2/  . 2 7 4/  , A3PB/  .26  3/  ,A4PR2/.327/, 
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3 A1SS1/. 338/,A2SS2/. 230/,A3SB/. 263/,A4SR2/. 382/, 

4 KA/1 1./ , KTM/ . 04/ , EYEL/50./ , KQS/ 3.743/ , 

5 APS/ . 393/ , XPSL/ . 05/ , KQLOSS/ .0237/ , 2S/6. 5/ , ZR/6 . 5/ 

IF  (IENTR)  1000,2000,3000 

1000  IF  (INEL.NE.O)  GO  TO  1500 
C 

INITIALIZATION 

DO  1001  1=1,100 

1001  DT ( I ) = 0 . 0 

CORRECT  INPUT  DATA  FOR  FLUID  TEMPERATURE 
I=KTEMP( 1ND) 

DT( NOS ) =S 20RHO( I ) /SQRT( 2 c/7 . 8 2E- 5 ) 

DT { NQPS  ) = D(  KQPS  ) * D'N  N QS  ) *SQRT ( 2.  ) 

DT ( NQLOSS ) =KQLOSS*DT( NQS ) 

DT ( NQS ) =KQS*DT( NQS ) 

DT ( 1 3CTA ) =DULK ( I) 

DT(  FIBETA)=DT{  1 3 ETA  ) * D(  AR)  *D(  AR)/D( RS) 

CALL  TUSTI N ( 1,1. , DT( KINT) , DELT ) 

CALL  TUSTI N { 2, . 0 0 5 , DT ( KF LOW) , DELT) 

CALL  TUSTI N ( 2 , . 0 1B7 2 , DT( KCOM) , DELT) 

SET  UP  SWITCHING  VALVE  CONSTANTS 
DINP=.75/( 12*32. 2* DELT) 

DELT02=DELT/2. 0 
BBVP= ( DORFC  P/ A 3PB ) **2 
BVP=BBVP*(  . 1 + OIN  P ) / 2 , 0 
SQBVP=3 VP*  * 2 
BBVS=( DORFCS/A3SB) **2 
BVS  = BBVS* ( . 1 + DIN  P ) /2 . 0 
SQBVS  = B VS  * * 2 

DT(  COEFVP)  = 2. 0*  . 65*S20RH0{  1 ) 

DT( COEFVS) =2. 0* . 6 5*3 20RHO( I) 

DT( LEAK) =1000000. 

C 

L(  I S YS  ) = 1 

IF(INV)  1220,1250,1200 
1200  IF(L(9) .EO.INV)  GO  TO  1250 
IF(L( 10) -EQ.INV)  GO  TO  1230 
L ( I SYS ) =3 
GO  TO  1250 

1220  IF( L( 9) .NE.-INV)  GO  TO  1250 
1230  L ( I SYS ) =2 
1250  CONTINUE 

DT( LOSS ) =RH J( 1) *6. 06 

DT( LSWACT) =1 . 0/( DT( COEFVS ) * . 2) **2+DT( LOSS) 

IF ( L( I SYS ) . GT. 2 ) GO  TO  1260 

DT( LSWACT) =DT( LSWACT) +1 . 0/ ( DT ( COEFVP ) * . 2 ) **2+DT( LOSS) 
1260  CONTINUE 
RETURN 
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STEADY  STATE  SECTION 


1500  CONTINUE 

QLOSS  = ( 1 . 0/ ( DT( NQLOSS ) *D ( KCHAN ) ) ) **  2 
COES=DT ( LEAK ) 

IF ( ( KNEL+1 )/2.NE.L( ISYS) ) GO  TO  1600 
DT ( QS  ) = PQLF,G(  INEL,  1)  *P0LEG(  INEL, 2) 

COES=0. 0 

1600  QSA=PQLEG( INEL,  1} 

PDELTA=PQLEG( INEL, 2 ) *QSA* ( QS A*  DT ( LSWACT ) +COES ) 
DELP=  PQLEG ( INEL, 2 ) *QSA* * 2*QLOSS 
PSA=PQLEG ( INEL, 11)-PDELTA 
PRA- PS A- DEL P 

PQLEG ( INEL, 1 1 ) =PRA-PDELTA 
PQLEG ( INEL, 6 ) =PQLEG(  I NEL,  6 } +COES* 2 . 0 
PQLEG ( INEL, 8) =PQLEG( INEL, 8) +2. 0*DT( LSWACT) +QLOSS 
IF(COES.NE.O.O)  GO  TO  1700 
DT ( PPl )= PS A 
DT(  P P2  ) = PR  A 
1700  RETURN 


- VARIABLE  INITIALIZATION 


2000  CONTINUE 

DT ( N S U PUP ) = DT ( PPl) 

DT( NRETRP) =DT( PP2 ) 

DT( CSA) «DT( PPl ) +DT ( QS ) * Z S 
DT ( CSV ) =DT ( PPl ) -DT ( QS ) * Z S 
DT(  CRA)  :=DT{  PP2  ) -DT(  QS  ) *ZR 
DT ( CRV) =DT ( PP2 ) +DT( QS ) *ZR 
DT  ( XF 13  ) = DT  ( VC  ) * KA*  KT.'V  D ( KF 3 ) 

DT( XFBP) =DT( XFQ) 

TAERO  = DT( KAERO) +DT( KAEROP) *DT( XF3) 

DT(RFXL)  = D ( MAO  ) -t-D(  idAl ) * DT  ( XFB ) + D(  MA2  ) *DT  ( XFB ) * * 2 
DT ( XL)  = DT(XF13)-(TAER0/DT(RFXL)  )/D(KS) 

DT( XLP)=DT(  XL) 

FI  = TAERO/DT( RFXL)/D( AR) 

DT(PS)  = DT ( PPl)- DT ( P P 2 ) 

DELP  = ( DT( PPl ) +DT( PP2 ) )/2 
DT (PPl)  = DELP+F1/2 
DT( PP2 ) = DELP- " 1/ 2 
DT(PL)  = FI 

DT( XIQl ) = ( D( VOLl)+DT( XFB) *D( AR) ) / ( 1 . -DT ( PPl ) /DT ( I BETA) ) 
■ DT( XIQ2)  = ( D( VOL2)-DT( XFB) *D(AR)  ) / ( 1 * - DT ( PP2 ) /DT( I BETA) ) 
DT( VCL) =DT( VC ) 

DT ( VCS ) =DT ( VC ) 

DT( DPFB) =DT( PL) *KDEL*KDPF/XE 
DT{  XP) =0. 2 
DT ( XS ) =0  . 2 
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IF( L(ISYS)-2)  2040,2020,2010 
2010  DT(XS)=-.2 
GO  TO  2040 
2020  DT(XP)=-.2 
2040  DT( XPP)=DT{ XP) 

DT( XSP) = DT( XS ) 

DT( QS ) =0 . 0 
RETURN 

3000  CONTINUE 
C 

C ****  TRANSIENT  CALCULATIONS  **** 

C 

C ****  INTIALIZE  VARIABLES  **** 

RFXLS=DT(RFXL) 

DT(RFXL)  = D(rtA0)+D(i4Al)  *DT(  XL)+D(MA2)  *DT(XL)  **2 

RFXL  P=  2 . DT  ( RFXL ) -RFXLS 

TAERO=DT( KAERO) +DT( KAEROP) *DT(  XFBP) 

C 


C SECONDARY  ACTUATOR 

C 

C SERVO  AilPLl F I ER 


C 

DT ( VCN ) =DT ( VC ) 

DT(VCL)=DYNAM( DT(VCS) ,DT(VCL) ,DT( KCON) ) 

DT { VCS ) =DT( VCN ) 

EYE=DT( VCL) *KA 

I F ( ABS ( EYE ) .GT.EYEL)  E YE=S IGN ( EYEL, EYE ) 

C 

C TORQUE  MOTOR 

C 

TXPSS=DT( TXPS ) 

DT(TXPS)  = DT( XPS ) *KXPS 
TXPS  P~  2 . * DT ( TXPS ) -TX  PSS 
TM  = EYE*KTri 

£PST=TM-DT( XFBP) *D( KFB) -TXPSP-DT(TP) 

EPST  = . 0 304  2*E  PST 

IF ( ABS ( EPST) .GT.0.02)  EPST=SIGN( 0.02, EPST) 
DELP=DT( PS) -SIGN ( 1 . 0 , E PST ) * DT ( PIP) 

TF( DELP.LT.0.0)  DELP=0.0 

DT(QS)  = EPST*DT( NQS ) *SQRABS ( DELP) 

C 

C MAIN  CONTOL  VALVE  POSITION 

C 

DT(XQI)  = DYNAlH  DT( XYQS ) , DT ( XQI ) , DT{ KFLOW)  ) 
DT(XPSD)  = DT ( XQI ) /APS 

DT(XPS)  = DYNAM ( DT( XYXPSD) , DT ( XPS ) , DT ( KI NT ) ) 
CALL  XLIMIT ( DT ( XPS ) ,DT( XPSD) , Tri , -XPSL, XPSL) 
IF(TH.EQ.O.O)  GO  TO  60 
DT( QS ) =0 . 0 
DT( XQI)=0.0 
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CONTINUE 

DT(  XYXPSD)  =DT(  XPSO) 

QlS=DT{Ql) 

02S=DT ( 02 ) 

NXV=DT( XPS ) /VLVOL 
IF(NXV)  130,170, 180 

XPS  LESS  THAN  0 

! XPSS= ( ( DT  ( XPS  ) + VLVOL)  * D1  ( NQPQ ) ) 2 

SGN=DT( CRA) -DT ( PPl ) +QLOSS*ZR 
F N 2 = X PS  S * Z R 
I C A LC  = 1 

CALCULATE  .4AIN  CONTROL  VALVE  V LO.  a 

0 FLOW=  ( 5QRT(  t'N  2*  * 2 + 4 . 0* X PSS* AOS ( SGN ) ) - FN2)  / 2 . 0 

GO^TO  1 150^16 0 » 100, 200 ) , IC  AI.C 

0 DT( Ql) -SIGN ( FLOW , SGN) 

QRA  = DT(  Ql ) -(’LOSS 
FN2»XPSS*ZS 

SGM=  DT  ( C S A ) - DT  ( P P 2 ) - 0 LOS  t.  * - s 

ICALC=2 

GO  TO  140 

50  DT( 02 ) =S IGN ( FLOW , SGN ) 

QSA  = D'L'(  Q2)  +QLOS3 
GO  TO  220 

XPS  - 0 

70  DT ( Q 1 ) = 0 « 

FLOW  = 0 » 0 
QSA  = QLOSS 
DT(Q2)=0. 

QRA  = -QLOSS 
IC  ALC-5 
GO  TO  220 

XPS  GREATER  THAN  0 

.80  XPSS=( (DT( XPS) -VLVOL) *DT(NORS) )**2 

FN2=ZS*XPSS  , 

SGN=DT(CSA)-DT( PPl) -QLOSS*  L S 

ICALC  = 3 
GO  TO  140 

10  0 DT ( Q 1 ) = S I GN  ( K LOW  , S(,M  ) 
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OS A = DT( 01 )+QLOSS 
FN  2-Z  R*X  PSS 

SGN=DT( CRA) -DT( PP2 ) +QLOSS*  Z R 
I CALC -4 
GO  TO  140 

200  DT( Q2 ) *S IGN ( FLOW , SGN ) 

QRA  = DT ( Q2 ) -QLOSS 

220  PSA  = DT( CSA ) -ZS*Q5A 
PI?  A = DT(  CRA ) -2  R*QRA 
VAP  = PVAP(  KTEMP(  IND)  ) 

IF( PRA.GT. VAP. ANO.DT(NCAV) .LE.Q.0)  GO  TO  270 
GO  TO  ( 230, 230, 240, 240, 250) , ICALC 
2 30  F LOW=SQRABS ( XPSS* ( VAP-DT ( PP1 ) ) ) 

DT  ( Q1 ) = F LOW 
GO  TO  250 

240  FLOW-SQRASS ( XPSS* ( VAP-DT( PP2 ) ) ) 

DT ( Q 2 ) = F LOW 

250  ORA= ( DT ( C RA ) - VAP ) /Z  R 
PRA=VAP 

DT ( NCAV) =DT ( NCAV ) + F LOW-QLOSS-QRA 
270  CO  NT  I NIJL 

DT(PS)  = PSA-PRA 

ACTUATOR  CHAi'lBER  PRESSURE'S 

PFL0W-3T(  VXLP) *D( AR) 

P D I S = DT ( XI.P)  *D(  AR) 

DT ( XI Ol ) -DT ( XI 01 )+. 5*DELT*( DT(Q1)+Q1S) 

DT ( XT  02 ) - DT ( XIQ2)+. 5*DELT* ( DT(Q2) +Q2S ) 
FOl=DT( FI BETA ) /DT( XIQ1) 

FO 2 = DT ( F ] BETA ) / DT ( XIQ2) 

13  K TA 1 - DT  ( 1 3 ETA  ) * ( l.+FQ2)/(  1.+FQ1+FQ2) 

BETA  2=DT ( I BETA) *(  1 ,+FQl)/( 1.+FQ1+FQ2) 

PP1 1=BETA1* ( 1 .-( PDIS+D( VOLl) )/DT( XIQ1 ) ) 

P P 2 2 = B E T A 2 * ( 1 . + ( PDIS-D( VOL2)  )/DT( XI 02 ) ) 

PP2 1 = PP1 1 * F 0 2/ ( 1.+FQ2) 

PPl  2=PP22*FQl/(  1 . + F Q .1 ) 

DT ( PPl )=PPl 1+PP1 2 
DT( PP2 ) -PP22+PP21 
I F ( DT ( PPl ) . LT. VAP)  DT ( PPl ) =VAP 
I F ( DT ( PP2 ) . LT. VAP)  DT ( PP2)=VAP 
PLS=DT( PL) 

DT(PL)  = DT ( PPl) -DT ( PP2 ) 

DLI.T  --  DT(PL) 

1 F ( A I!  G ( DLLT)  . GT  . 2000.  ) DLLT=S  IGN  ( 2000.  , D L LT  ) 
DT(TP)  - DLLT*KDLL*KDPF-KL*DT( DPFBP) 

TPNS  = DT ( TPN ) 

DT(TPN)  = SQRABS ( DT( TP) ) 

DPFI3S  DT  ( D P F 13  ) 

DT(DPFB)  =DT(  DPFB)  4-  . 5*DELT*  ( DT  ( TPN  ) +TPNS  ) 
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DT(DPFBP)  = 2.*DT(DPF3) -DPF3S 

LOAD  DYNAMICS 

FL=DT( PL) *D( AR) 

TR  = FL*RFXLP 
DT  ( XSD) =FL/D(  I<S  ) 

FDRIVE=TR~TAERO 

CALL  CFRIC 2 ( F DRIVE , FF , DT ( VXLP ) ,DT(VXL) ,DT(TE) , DT ( XYTE ) , 

1 DT( DELEDI ) , DELS,  201000. ,1.263,1.) 

DT ( TE) =FDRIVE+FF-DT ( VXLP) * D( BE) /RFXLP 
DELS=DT( DELEDI ) 

DT( DELEDI ) = DYNAM ( DT( XYTE ), DT( DELEDI ), DT( KINT ) ) 

VXLS=DT ( VXL ) 

DT(VXL)  = DT( DELEDI )*RFXLP/D( IE) 

DT ( VXLP) =2 . *DT( VXL) -VXLS 
DT  ( XYTE)  = DT(TE) 

XL£=DT( XL) 

DT(XL)  = DYNAM ( DT ( XYDLED ) , DT ( XL ) , DT ( KINT ) ) 

DT ( XLP)  = 2 . * DT ( XL) -XLS 
DT( XYDLED)  = DT(VXL) 

XFBS=DT( XFB) 

DT(XFB)  = DT( XL) + DT (XSD) 

DT( XFBP) = 2 . * DT ( XF3)-XFBS 
DELP=DT( PPl )-DT(  PP2 ) 

P1S=DT{ PI) 

DT( PI) =DT( XPS ) *D( KB) * ( DT<  PS ) -SIGN ( DELP, DT( XPS ) ) ) /APS/D ( KCHAN ) 
DT( PlP)=2.*DT( P1)-P13 

SWITCHING  VALVE  CALCULATIONS 

DO  3010  1=1,6 
I L=L( I ) 

Q( I L) =0 . 0 
3010  P(  I L) =C ( I L) 

QSV=0. 0 
QRV=0. 0 
PSV---DT{  CSV) 

PRV=DT{ CRV) 

NS=1 

PXP=DT ( XP ) * 2 . 0-DT { XPP) 

PXS=DT( XS) *2. 0-DT( XSP) 

NDISVP=PXP/OLP 
NDISVS=PXS/OLS 
IF ( NDISVS ) 3020,3040,3029 
3 02  0 COE= { ( PXS+OLS ) * DT ( COEF VS ) )**2 
COE=COE/(COE*DT( LOSS) +1.0) 

NS=  3 

GO  TO  3036 

3C29  IF ( NDISVP ) 3030,3046,3035 
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3030  NS=2 

3035  COEP=l . 0/ ( ( PXP-S IGN { OLP, PXP ) ) *DT(COEFVP) ) **2+DT{ LOSS) 
COES=1.0/( ( PXS-OLS ) *DT{ COEFVS ) ) * * 2 + DT( LOSS ) 

COE= 1 .0/ ( COEP+COES ) 

3036  LS=NS*  2 
LR=L( LS ) 

LS=L{ LS-1 ) 

C SUPPLY  CALCULATION 

3A= ( Z ( LS ) +ZS ) *COE/2 . 0 

QSV=  -Z A+SQRT( ZA**2+ABS{C(LS) -DT (CSV) )*COE) 

QSV=  S IGN ( QSV, C ( LS ) -DT( CSV) ) 

PSV~DT( CSV) + Z S*QSV 
Q( LS ) =QS V 

P( LS ) =C ( LS ) -QS V*  Z ( LS) 

DT( NSUPRP) =C ( LS ) -QRV* ( Z ( LS ) -ARS ( QRV) *COLP) 

C RETURN  CALCULATION 

ZA=( Z( LR)+ZR) *COE/ 2.0 

QRV=  -Z A+SQRT ( Z A*  * 2+ ABS ( C ( LR)-DT(CRV) )*COE) 

QRV=  SIGN(QRV,C( LR)-DT(CRV) ) 

PRV=DT ( CRV) +ZR*QRV 
Q(LR)=QRV 

P ( LR) =C ( LR ) -QRV*  Z ( LR ) 

DT( NRETRP) =C ( LR) -QRV* ( Z ( LR) -ABS ( QRV) *COEP) 

3040  N=1 

IF(NDISVP)  3043,3100,3044 

3043  N = H+2 

3044  DT ( NSUPRP ) =P( L ( N ) ) 

DT( NRETRP) *P(L(N+1) ) 

GO  TO  3100 

3045  DT( NSUPRP) = PS V 
DT( NRETRP) =PRV 

3100  CONTINUE 

VELPO=DT( VELP) 

PBST=P ( L( 1) ) 

IF ( PXP . LT. 0.1)  PBST*P( L( 2 ) ) 

PSPL= ( ZSPP  -SSPP*PXP+P{ L{ 3) ) *A2PS  2 + P( L( 4 ) ) *A4PR2-P( L( 1)  ) *AlPSl ) 
PSPL=( PSPL~VELPO*DINP)/A3PB 

DT ( VELP) =-BVP+SQRT{ 3Q3VP+3BVP  ABS ( PBST-PSPL) ) 

DT( VELP) =SIGN( DT( VELP) , PBST-PSPL) 

DT ( XPP) =DT( XP) 

DT ( XP ) =DT ( XP ) + ( VE  LPO+DT ( VELP) )*DELT02 
CALL  XLIMIT( DT( XP) ,DT{VELP) ,PSPL,-.2, .2) 

IF( PSPL.NE. 0.0)  DT ( XPP) =DT( XP) 

C 

VELSO=DT( VE LS ) 

PBST^DT ( NSUPRP ) 

IF ( PXS.LT.0.1)  PBST=DT( NRETRP) 

PS  PL= ( ZSPP-SSPP*PXS+P{ L ( 5) )*A2SS2  + P(L( 6) )*A4SR2 
1 -UT( NSUPRP) *A1S51) 

PSP  L= ( PS  PL- VELSO*  DINP)/A3SB 
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DT( VELS ) =-BVS+SQRT( SQBVS+BBVS*ABS ( PBST-PSPL) ) 

DT( VELS ) -SIGN ( DT( VE  LS ) , PBST-PSPL) 

DT( XSP) =DT( XS ) ^ 

DT( XS ) =DT( XS ) + ( VBLSO+DT ( VELS ) ) *DELT02 
CALL  XLIMIT( DT( XS ) ,DT(VELS) ,PSPL,-.2, .2) 

IF{ PS PL. NE, 0.0)  DT{ XSP) =DT ( XS ) 

DT ( CSA) =PSV+ZS*QSV 

DT ( CSV) =PSA-Z  S*QSA 

DT ( CRA ) = PR V+Z  R* ORV 

DT(CRV)=PRA-ZR*QRA 

RETURN 

END 
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6.106  SUBROUTINE  ACT106 


Subroutine  ACT1Q6  is  a model  of  the  spaceshuttle  body  flap  actuation 
subsystem,  a schematic  of  which  is  shown  in  Figure  6.106-1.  The  subsystem 
basically  consists  of  three  hydraulic  motors,  a valve,  a mechanical  drive 
unit,  and  rotary  surface  actuators.  The  component  has  six  hydraulic  connec- 
tions, two  for  each  hydraulic  system,  attached  to  it.  Each  system  powers  a 
motor.  The  output  of  the  'motors  is  summed  in  the  mechanical  drive  which  in 
turn  drives  the  rotary  surface  actuators  to  position  the  body  flap. 

A single  valve  controls  the  flow  to  all  three  motors.  The  guidance  and 
control  subroutine  provides  the  input  commands  and  hinge  moments  at  each 
sample  time  interval  of  the  guidance  system,  which  is  .04  seconds.  The  valve 
may  be  commanded  to  open  in  the  extend  direction,  open  in  the  retract 
direction  or  close. 

The  body  flap  subsystem  is  essentially  an  open  loop  system  with  no 
feedback  between  the  body  flap  and  the  valve.  The  position  of  the  body  flap 
is  supplied  to  the  command  and  control  subroutine  which  commands  the.  position 
of  the  valve. 
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6.106.1  MATH  MODEL 


The  body  flap  model,  Figure  6.106-1,  receives  input  commands  from  the. 
guidance  and  control  program.  The  command  signal,  DT(VC),  commands  the  valve 
to  open  in  either  the  extend  or  retract  direction,  or  to  close. 

The  pressures  and  flows  at  the  component  connections,  Q(L1) , Q(L2) , 

P(L1)  and  P(L2)  are  then  calculated.  The  pressure  drop  due  to  the  load  on 
the  motor  is, 

PMLR  = (QR-VMTR*RMDIS)/UKPq  6.106-1 

where 

PMLR  is  the  pressure  drcp  due  to  motor  load, 

QR  is  the  flow  through  the  valve, 

VMTR  is  the  velocity  of  the  motor, 

RMDIS  is  the  displacement  of  the  motor, 

DKPQ  is  the  motor  leakage  coefficient. 

The  total  pressure  drop  through  the  valve  is, 

PS-PMR  = QR2/CK2  6.106-2 

where 

PS  is  the  pressure  drop  between  connections, 

CK  is  the  valve  coefficient. 

Combining  Equations  6.106-1  and  6.106-2  and  simplifying, 

QR2/CK2  + QR/DKPQ  = PS  + (VMTR*RMD1S) /DKPQ 

With  QR  known  the  loads  on  the  body  flap  and  the  position  of  the  body 
flap  are  determined  using  the  model  in  Figure  6.106-2. 

6.106.2  Assumptions 

The  model  of  the  mechanical  drive  was  derived  from  the  rudder/speedbrake 
mode].  Values  of  panel  inertia,  stiffness  and  damping  are  approximations 
based  upon  similar  rudder/speedbrake  value. 
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6.106.3  Computational  Method 


This  subroutine  uses  Tustlns  method  of  integration  and  is  arranged  such 
that  each  differential  is  evaluated  using  the  latest  value  of  the  previous 
integral  in  a series  calculation,  rather  than  the  more  usual  parallel 
integration  methods  where  the  integrals  are  effectively  evaluated  simultaneously 
using  previous  values  to  evaluate  the  derivatives. 

Predicted  values  are  used  to  improve  the  calculation,  where  the  use  of  a 
previous  value  would  incur  a significant  error.  The  computation  follows  the 
usual  component  model  layout  shown  in  Figure  6.1-1  on  Page  6.1-2. 

1000  SECTION 

This  section  is  used  to  initialize  the  integration  constants  used  by  the 
subroutine.  Subroutine  Tustin  is  called  to  initialize  each  of  the  constants. 
Subroutine  variables  are  zeroed. 

1500  SECTION 

This  section  is  used  to  return  values  for  the  steady  state  calculation. 

In  the  steady  state  calculation  the  motors  are  assumedto  be  stopped  and  the 
valves  are  closed.  The  steady  state  flow  for  each  system  is  assumed  to  be 
a leakage  flow  through  the  valve. 

2000  SECTION 

This  section  is  used  to  initialize  the  subroutine  variables  to  their 
steady  state  values.  If  the  body  flap  has  an  initial  position  other  than 
zero  the  variables  used  to  calculate  the  body  flap  position  are  evaluated. 

Constants  used  by  the  3000  section  are  evaluated. 

3000  SECTION 

The  3000  section  models  the  transient  response  of  the  body  flap  and 
follows  the  model  in  Figure  6.106-2.  It  is  divided  into  four  parts.  Part 
one  models  the  valve,  part  two  models  the  pressure  and  flow  demands  of  the 
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hydraulic  motors,  part  three  models  the  load  dynamics  of  the  rotary  actuators 
and  aerodynamic  panel  and  part  four  models  the  gear  efficiency. 

In  part  one  a command  is  received  from  the  guidance  and  control  program. 
This  command  may  be  +1,  -1  or  0.  The  command  is  delayed  .05  seconds 
before  being  used  by  the  subroutine.  It  within  the  .05  second  delay  the 
command  is  changed  the  new  command  is  used  at  the  end  of  the  delay.  The 
command,  A(COM) , has  a lag  with  a time  constant  of  .0083  seconds.  The  lagged 
command,  A(XPSL) , is  multiplied  by  the  power  valve  flow  coefficient.  If 
A(XPSL)  is  positive  the  flap  up  flow  coefficient,  UKQP,  is  used.  If  A(XPSL) 
is  negative  the  flap  down  flow  coefficient  DKQP,  is  used.  If  A(XPSL)  is 
zero  the  flow  coefficient  is  assumed  to  have  a leakage  value  of  .00000001. 

The  resulting  power  valve  flow  coefficient,  CK,  is  used  to  calculate  the  flow 
through  the  body  flap. 

Part  two  of  the  3000  section  uses  the  power  valve  flow  coefficient, 

CK,  calculated  in  part  one  to  calculate  the  pressure  and  flow  demands  of  the 
body  flap  motors.  The  calculations  in  part  two  are  performed  three  times, 
once  for  each  hydraulic  system  connected  to  the  body  flap.  The  flow  through 
the  valve,  QR,  is  calculated.  This  flow  is  equal  to  the  flow  through  the 
body  flap.  With  the  flow  known  the  pressures  at  the.  connections  are 
calculated.  The  flow,  QR,  is  then  used  to  calculate  the  velocity  of  the  body 
flap  motor,  A(VMTR+MA) , (MA  may  equal  0,  1 or  2 depending  on  which  system 
j s being  solved)- 

Part  three  sums  the  individual  body  flap  motor  velocities.  The  total, 
velocity  is  integrated  to  give  the  total  angular  displacement  of  the  power 
drive  unit,  A(POSR) . The  angular  displacement  is  then  divided  by  the  total 
mechanism  gear  ratio  to  give  the  Lutal  angular  displacement  of  the  drive 
mechanism.  The  torque  caused  by  the  loud  on  the  panel  is  calculated 
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next.  The  torque  ia  integrated  twice  to  yield  the  position  of  the  body  flap 
aerodynamic  panel  under  load. 

Part  four  models  the  gear  efficiency  of  the  body  flap  drive  mechanism. 

6.106.4  APPROXIMATION 

The  values  for  the  panel  friction  and  damping  were  estimated  since  no 
data  was  available.  The  inertia  of  the  panel  is  based  upon  the  rudder/speed- 
brake  panel  inertia. 

6.106.5  LIMITATIONS 

Little  data  was  available  for  the  body  flap,  therefore,  when  necessary, 
rudder/speedbrake  data  was  used.  This,  obviously,  will  produce  some  error 
in  the  body  flap  performance.  However,  the  flow  requirements  and  surface 
rates  do  approximate  those  specified  for  the  body  flap. 
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6.106.6  Variable  Names 


Variable 

Description 

Dimensions 

AEROTI 

Body  flap  aerodynamic  load 

in-// 

BM 

Motor  visions  friction  coefficient 

,015  in- lb-sec 

BP 

Viscous  damping  of  panel 

40000.  in- lb-sec 

BRK 

Motor  brake  torque 

in- lb 

A (COM) 

Time  delayed  input  command 

deg 

CK 

Valve  flow  characteristic 

cis/  psi 

DJMR 

Motor  moment  of  inertia 

.00636  in-lb-sec 

DJ1’ 

Inertia  of  body  flap  panel 

2579.  in- lb-sec2 

DKHC 

Rotary  actuator  spring  constant 

16.5E6  in- lb/rad 

DKFQ 

Motor  leakage  coefficient 

.001  cis/psl 

DK.QP 

Body  flap  down  valve  coefficient 

cis/  psi 

DLAG 

Power  valve  and  linkage  response  time 

.0083  sec 

DMLK 

Valve  leakage  impedance 

1.0E6  pai/cis 

EFFI1 

Cear  efficiency 

96  percent 

A ( FAR+MA) 

Net  motor  torque 

in- lb 

A(FBP) 

Net  torque  on  panel 

in- lb 

FOR 

Gross  developed  motor  torque 

in-lb 

FFP 

Friction  force  on  body  flap  panel 

in-lb 

FFR 

Friction  force  on  motor 

in-lb 

FRIG 

Motor  columb  friction 

9 . 0 in-b 

FEU  CP 

Panel  columb  friction 

9.0  in- lb 

A(FSTR) 

Body  flap  panel  load 

in- lb 

Gil 

Power  train  gear  ratio 

56640 

A (K1NT) 

Integration  constant 

- 

A(LAG) 

Integration  constant 

- 
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LI 

Supply  connection  number 

- 

L2 

Return  connection  number 

- 

MA 

System  indicator 

- 

A(PMLR+MA) 

Body  flap  motor  load  pressure 

psi 

A(POSR) 

Total  drive  unit  rotation 

rad 

A(PSC+MA) 

System  pressure  loss  across  body  flap 

psi 

QR 

Flow  through  body  flap 

cis 

RMD1S 

Motor  volumetric  displacement 

.01432  in3/rod 

A(Rl’OSR) 

Body  flap  position 

rad 

Sl’OSFR 

Body  flap  deflection 

rad 

SPOSIR 

Body  flap  hinge  rotation 

rad 

SR 

Ratio  of  motor  static  to  columb  friction 

2.0  - 

SRP 

Ratio  of  panel  staLie  to  columb  friction 

2.0  - 

SIR 

Torque  due  to  body  flap  deflection 

in- lb 

SXTS 

Sign  of  valve  opening 

- 

DT (TAERO) 

Aerodynamic  load  from  SDF 

in- lb 

TR 

Gear  box  reaction  torque 

in- lb 

TSW 

Valve  delay  counter 

sec 

UKQP 

Body  flap  up  valve  coefficient 

cis / psi 

DT (VC) 

Body  flap  position  command 

- 

VLVOL 

Power  valve  overlap 

.043  in 

VM 

Motor  fluid  volume 

2.77  in3 

A(UM'1’R+MA) 

Body  flap  motor  velocity 

rad/ sec 

A(VRT) 

Sum  of  motor  velocities 

rad/sec 

A(X1'S) 

Valve  position 
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SUBROUTINE  ACT106  ( D , DT , DD, L ) 

SHUTTLE  BODY  FLAP  MODEL 
REVISED  AUGUST  28,  1976 

COMMON  NTELPL, NTOLPL, I PT , I POINT , NPTS , I WKL, KNEL, NTQPL, NLPLT ( 61,3), 
1 PQLEG( 90,12), LCS( 9 0, 10) , I LEG ( 1400),PN(90),QN(90) 

COMMON/ SUB/ FARM { 150,9) ,PM( 1500) ,QM( 1500) ,P{ 300) ,Q( 300) ,C( 300) 

1, Z<  300)  , RHO( 20) ,S20RHO( 20) ,VISC( 20)  , BULK ( 20) ,TEMP( 20)  ,PVAP( 20) 

2 ,  AT PRES , T , DELT , TF INAL , PLTDEL, PI , TITLE ( 20) , LEGN , ICON 

3, KTEMP( 99) , LSTART( 150) ,NLPT( 150) , LTYPE( 99) ,NC( 99) , INX,1NZ 

4, INV, ISTEP,NLINE,NEL, IND, I ENTR, MNLI NE , MNEL , MNLEG , MNNODE , MN PLOT 
5 , MNLPTS , MDS 

DIMENSION  D ( 1 ) ,DT{ 13) ,DD( 1) ,L(1) ,A(70) 

REAL  MTORR 

INTEGER  XPS,  POSR , RPOS  R , RPOSRS , RPOSRP  , RPIR  , PSC  , QRS , PflLR, 

1 VMTR, VTR, TR , VRT , FSTR, RP1 , VC , TAERO, VTRP , VTRO , FAR, FARO 

2 , XPSS , XPS N , XPS L , VB PP , VBP , PUP, FBPO , VBPO , COM 

A ARRAY  VARIABLES  

DATA  XPS/1/ , PSC/ 2/ , QRS/ 5/ , PMLR/8/ , VMTR/ 1 1/ , TR/1 4/ , VTR/ 1 7/ 

1 , POSR/ 2 0/ , RPOSR/ 2 1/ , RPOSRS/ 2 2/ , RPOSRP/ 2 3/ , RPIR/ 24/ , FAR/ 2 5/ , 

2 FARO/ 2 8/ , VRT/ 3 0/ , FSTR/ 32/ , RPl/3  5/ , K I NT/ 3 7/ , KSSGN/ 4 0/ , 

3 KRP1/ 41/ , VTRP/ 4 4/ , VTRO/ 4 7/ , LAG/ 5 0/ , XPSL/ 5 3/ , XPSS/ 54/ , XPSN/ 5 5/ 

4 , VB  PP/ 6 0/ , VB  P/ 6 1/ , FB  P/ 6 3/ , FBPO/ 6 5/, VBPO/ 6 6/ , COM/ 6 9/ 

DT  ARRAY  VARIABLES  

DATA  VC/ 1/, TAERO/ 4/ 

INITIALIZATION  OF  CONSTANTS  

DATA  DKPQ/ .001/ , VM/ 2.77/ , B/ 180000./ , DTP/ 2579./ , 

1 BP/4  000 0 ./ , DMLK/ 1 . 0E6/ , DKVC/ .002/ ,DK PI/. 000138/ , 

2 DKA/15. 0/, DKTM/0. 045/, DKXPS/6. 22/ , DAPS/ 0. 193/, 

3 VLVO  L/ . 0 4 3/ , RMD I S / . 0 1 4 3 2/ , BM/  . 0 1 5/  , DJM  R/  . 0 0 6 3 6/ , 

4 DKPR/ .184/, UKHC/ 1 b . 5E6/ , DKB/ .52/, 

5 GH/56640./,EFFH/.82/,EFFG/.96/,FRIC/9.0/, 

6 SR/2 . 0/ , BF/1 . 0/ , DU/ . 006/ , DI L/8 . 0/ , OLAG/ .0083/ 

7 , FRI.CP/9 . 0/  , SR  P/  2 . 0/  , BF  P/  1 .0/ 

IF  ( I ENTR ) 1000,2000,3000 

1000  IF  (INEL.NE.0)  GO  TO  1500 

INITIALIZATION  

DO  1001  1=1,70 

1001  A( I ) =0 . 0 

DO  1002  1=1,11 

1002  DT ( I ) = 0 . 0 

TDRHO=S20RHO( KTEMP( IND) )/SQRT( 2./7.82E-5) 

CALL  TUSTIN  ( 1 , DUMMY , A { K INT ), DELT ) 

CALL  TUSTIN  ( 2 , DLAG , A ( LAG ) , DELT ) 
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CON3=DJP/3P 

CALL  TUSTINf 2,CON3,A{ KRP1) , DELT) 

RETURN 

1500  CONTINUE 

.'iA=(  ( KN EL+1 ) /2  ) — 1 
QA=PQLEG( INEL,  1) 

QS=PQLEG( INEL, 2) 

PQLEG( INEL, 6 ) =P0LEG( INEL, 6) +DMLK 

PQLEG(  INEL,  11)=PQLEG(  INEL,  1 1 ) -QA* QS * Di-lLK 

A ( PSC+rtA) =QA*QS*DMLK 

A(  QRS+HA)  =QA*QS 

RETURN 

2000  CONTINUE 

U K OP"*  ( . 6 5*  3 20RH0(  KTEMP(  IND)  )*PI/4.0)**2 
DKQP=UKQP*. 112**4 
UKQP=UKQP* .063**4 
UKQP=UKQP*DKQP/( UKQP+DKQP) 

DELT2=OELT/2.0 
A ( RPOSR) =DT( 2)/57. 3 
A ( RPOSRP) =A( RPOSR) 

A(  POSR)  =A(  RPOSR)  + ( DT(  2 ) * DT ( TAKRO+l  )+DT(  l’AERO)  )/DKMC 
A ( POSR ) =A ( POSR)  *GI1 
A( COM)=nT( VC) 

RETURN 

3000  CONTINUE 

IF(DT{  VC)  .NE.A(CO.-l)  ) GO  TO  3050 
TSW=. 050 
GO  TO  3070 
3050  TSW=TSW-DELT 

IF ( TSW . LE . 0 . 0 ) A ( CON ) =DT( VC ) 

3070  CONTINUE 

AEROT1  = DT ( T ^E  RO ) + DT ( TAERO+ 1 ) *A( RPOSR) *57.3 
XPOS=A( RPOSR) *57. 3 

CALL  XL I HIT ( XPOS , A( COG)  , A(  KSSGM ) ,-11.7,22.5) 

A( XPS) -A (COM) 

DT( 8 ) =A( XPS ) 

A ( XPSN ) -A ( XPS) 

A ( XPSL) =DYNAH( A( XPSS) , A( XPSL) ,A( LAG) ) 

A ( XPSS ) =A ( XPSN) 

DT( 6 ) = A ( XPSL) 

SXPS=SIGN( 1 . 0,A( XPSL) ) 

NXV=A( XPSL) /VLVOL 
IF(NXV)  3100,3110,3120 

XPS  LESS  THAN  ZERO  

3100  XVLV-A( XPSL) +VLVOL 
CK=DKQP*ABS( XVLV) 

GO  TO  3130 

C XPS  LESS  TUAN  VALVE  OVERLAP 

3110  X VLV=0 . 0 
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no  n n n o o 
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(Continued) 


CK=. 00000001 
GO  TO  3130 

C XP3  GR LATER  THAN  ZERO  

3120  XVLV=A ( XPSL) -VEVOL 
CK  = >JKQP*XVLV 
3130  DT ( 7 ) = X VLV 

PRESSURE  DROP  BETWEEN  CONNECTIONS  

THE  VARIABLES  IN  THE  A ARRAY  WILL  BE  USED  IN  SETS  OF  THREE 
USING  ONE  POSITION  FOR  EACH  SYSTEM.  THE  POSITION  WILL  BE 
DETERMINED  BY  THE  CONSTANT  M A . 

A 1=CK/DKPQ 

1)0  3300  1-1,3 

i-iA- 1-1 
L1=L( 2*1-1 ) 

L2=L( 2*1 ) 

PS~A( PSC+NA) 

QVR-A  ( VNTR+.lA)  *Ri  .Dlri 
Cl=( PS+QVR*3XPS/DKPO) *CK 
OR=  ( -B  1 + SORT  ( 15 1 * * 2+  4 . 0*C  1 ) )/(  2. 0) 

QR--SIGN ( QR , Cl ) 

A ( PSC+NA )=C( U ) -OR*  2 ( El ) -C ( L2 ) -QR*  2 ( E2) 

Q( L 1 ) =OR 
0( L2) =-QR 

P(  1.1 ) =C  ( LI ) -0(  LI)  *2  (LI) 

P(  L2)  =C(  L2)-Q(  1.2)  *Z(  L2) 

A ( PMLR+MA)  = ( DR*3XPS-A(  VMTR+.'i  A ) * RN  DIS  ) /DKPQ 
NTOR R=A ( PilER+MA)  *RMDIS 

NOTCH  FRICTION  AND  DAMPING  LFPECTS  

FDR=MTORR-A ( TR+i'i A) 
ti  RK  — 0 . 0 

I !•’  ( P ( L i ) , LT.  2220.  ) 3RK=(  2220.-P(Ll))/2220.*73.8 
CALI,  CERIC  ( FDR,  FFU,  A(  VTKP+NA)  , A(  VTR+NA)  , A(  FAR+MA)  , A ( FARO+NA  ) 
1, FRIC+B UK, SR, BF) 

A(  FAROE, NA)  =A(  FAR+MA) 

A ( FARED  A ) = F DR- A ( VT  R P M A ) * ( BI  1/  n JM  R ) + F F R 
A( VTRO+MA) *A( VTR+MA) 

A(  VTK+NA)  =A  ( VTRO  + .mA)  +DEl,T2*  { A(  FAR+MA) +A(  FARO+NA)  ) 

A ( VT  RP+MA ) ~ 2 . 0*  A( VTR+MA) -A( VTRO+MA) 

A ( VUTR+MA)  =A(  VTR+MA)  /D.JMR 
3300  CONTINUE 
C 

C LOAD  IjYNA.-i  1 (’S 

C 

A( VRT) =A( VRT  + L ) 

A ( VUTt  1 ) - A ( ViiT'K  ) + A(  VMTR+  1 ) + A(  VrlTK+2) 

A ( POSH) = DYNA:l( A( VRT) ,A( POGR) , A( KINT) ) 

S PUS  1 R~  A ( POOR ) /GH 


\ 
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n n o n n a n 


6.106.7  (Continued) 


SPOSFR=SPOSIR-A( RPOSRP) 

3TR=SPOSFR*  DKHC 
A ( FSTR)=STR-AEROTl 

CALL  C F R I C ( A ( FSTR ) ,FFP,A( VBPP)  ,A( VBP) ,A( FBP+1) , A( FBPO) 
1,FRICP,SRP,SFP) 

A(  FBPO) =A( FBP+1) 

A ( FBP+1 )=A( FSTR) -A ( VBPP) *( BP/DJP) +FFP 
A( VBPO)=A( VBP) 

A( VBP) =DYNAH( A( FBP) ,A(  VBP) ,A(KIMT) ) 

A( VBPP) -2 . 0*A( VBP) -A( VBPO) 

A( RP1 ) =A ( RPl+1 ) 

A(RP1+1)=A( VBP) /BP 
A { RPOSRS)=A(RPOSR) 

A( RPOSR) =DYNAM( A( RP1 ) ,A(RPOSR) , A( KINT) ) 

A( RPOSRP)- 2. 0*A( RPOSR) -A( RPOSRS ) 

WRITE ( 6 , 4 7 0 0 ) A ( VRT ) ,A(VRT+1) ,A( POSR) ,A( VBP)  , STR, AEROTl , A( FSTR) , 
I A( FBP+1 ) ,A( RPl+1 ) f A( RPOSR) 

4700  FORA AT ( 2X, 1H3, 2X,  10E12.5) 

GEAR  EFFICIENCY  CALCULATION  

HINGE  GEAR  EFFICIENCY  

TKP=STR/GH 
DO  3440  1=1,3 
NA=I-1 

I F ( S TR*  A ( R P 1 ) .GE.Q.O)  GO  TO  3410 
TRPH=TRP/EFFH 
GO  TO  3440 
3410  T R PH  = T R P*  E F FH 
3440  A ( TR+NA ) =TRPH 

DT( 2 ) =A ( RPOSR) *57. 3 

DT ( 0 ) = A ( VRT+ 1) *60./ ( 2. *3. 14159) 

DT( 1 0 ) =A ( POSR) *57. 3 
DT( 1 1 ) =A ( RPl  + 1) 

RETURN 

END 
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6.107  SUBROUTINE  ACT 10 7 


Subroutine.  ACT107  models  the  shuttle  rudder/speedbrake  actuation  subsys- 
tem, the  layout  of  which  is  shown  in  Figure  6.107-1.  The  subsystem  consists 
of  six  hydraulic  motors,  two  power  valves  and  two  4-channel  servo  actuators. 
Each  system  powers  two  motors,  one  for  the  rudder  and  one  for  the  speedbrake. 
The  servo  actuators  which  control  the  power  valves  are  powered  by  a single 
system.  All  three  hydraulic  systems  power  the  motors  and  a switching  valve 
selects  one  of  the  three  systems  to  supply  the  servo  actuator.  A single 
power  valve  controls  all  three  rudder  motors  and  a single  power  valve  controls 
all  three  speedbrake  motors.  The  input  command  and  hinge  moments  are  supplied 
by  a guidance  and  control  program  which  updates  the  values  at  each  sample  time 
interval  of  the  guidance  system  which  is  .04  seconds. 

6.107.1  Math  Model 

The  ACT107  rudder/speedbrake  model  is  shown  in  Figure  6.107-2.  The 
figure  shows  one  of  the  four  rudder  servovalves,  the  rudder  power  valve  and 
the  rudder  motor.  The  models  of  the  speedbrake  are  identical  to  those  of  the 
rudder  except  for  constants  which  describe  the  physical  characteristics  of  the 
rudder  and  speedbrake.  Figure  6.107-2  also  shows  the  rotary  actuator  and  aero- 
dynamic surface  model  which  is  common  to  both  the  rudder  and  speedbrake. 

The  following  portions  of  the  rudder/speedbrake  description  which 
specify  the  rudder  apply  equally  well  to  the  speedbrake. 

The  rudder  receives  input  ■ommands  from  the  command  and  guidance  program. 
The  input  command,  VC,  and  the  rudder  position  feedback,  VFP , are  summed  to 
yield  an  error  signal  which  drives  the  first  stage  flapper  valve  of  a two 
stage  servovalve. 

The  ACT107  model  uses  the  error  signal  to  calculate  the  pressure  and  flow 
demands  of  the  rudder /speedh rake . The  rudder/speedbrake  may  be  represented 
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RUDDER/ SPEEDBRAKE 

ACT107  MODEL  figure  6.107-2 


by  six  parallel  orifices  with  a common,  supply  and  return,  Figure  6.107  -'.. 

Two  of  the  orifices  represent  the  servovalves  first  stage  flapper  valves. 

Two  of  the  orifices  represent  the  servovalves  second  stage  valve  and  the 

mod  piston.  The  third  set  of  orifices  represent  the  power  valves  and  rudder/ 

speedbrake  motors. 

The  total  flow  through  the  system  is  equal  to  the  sum  of  the  flows 
through  each  orifice. 

qT  = QL  + Q2  + Q3  + Q4  + q5  + q6  6.107.1 

where,  Qp  is  the  total  flow  through  the  rudder /speedbrake 
Qp  to  Q$  are  the  flows  through  each  orifice 
The  flow  through  each  orifice  is 

Qfj  * 1 > (1  - pg~)  N ■ 1,6  6.107.2 

where  is  the  flow  through  each  orifice, 

Cn  is  the  orifice  flow  coefficient, 

PS  is  the  pressure  drop  across  the  component  connections, 

PLfj  is  the  load  pressure  ori  each  orifice. 

Combining  6.107.1  and  6.107.2  Qp  = PS1^  1CN  (1  - 6.107.2a 

Cn  must  be  determined  for  each  orifice. 

For  the  two  orifices  which  represent  the  rudder  and  speedbrake  flapper 
valve  CN  Is  simply  the  first  stage  leakage  coefficient,  HQI.0SS. 

The  orifice  flow  coefficient  for  the  rudder  and  speedbrake  second  stage 
valve  varies  depending  upon  the  error  signal  to  the  flapper  valve.  The  error 
signal  produces  a torque  in  the  flapper  valve  torque  motor  which  is  summed 
with  the  secondary  wire  feedback  torque  and  the  pressure  compensated  feedback 
torque  to  yield  a flapper  valve  error  torque. 
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Rudder  Flapper  Valve 


Flew  Model 


EPST  - TC  - TXPS  - TP1 


where,  EPST  is  the  flapper  valve  error  torque, 

TC  is  the  torque  motor  input  torque, 

TXPS  is  the  wire  feedback  torque, 

TP1  is  the  pressure  compensated  feedback  torque. 

The  orifice  coefficient  is  then  calculated  from 

K2  - EPST  * DKQS 

where,  K2  is  the  orifice  flow  coefficient  for  the  rudder, 

DKQS  is  the  secondary  valve  flow  gain. 

The  orifice  coefficient  for  the  power  valve  depends  upon  the  displacement' 
of  the  power  valve.  The  power  valve  displacement  is  equal  to  the  displacement 
of  the  mod  piston  which  is, 

FLOW  - XQI  /PS  - PIP 
XQS  = FLOW/DAPS 
XPS  = XQS 

Where,  FLOW  is  the  flow  to  the  mod  piston, 

XQI  is  the  secondary  valve  flow  coefficient, 

PIP  is  the  mod  piston  load  pressure, 

XQS  is  the  mod  piston  velocity, 

DAPS  is  the  mod  piston  area, 

XPS  is  the  displacement,  of  the  mod  piston  and  power  valve. 

The  flow  coefficient  for  the  power  valve  is, 

K5  = (XPS  - VLVOL ) * DKQP 
where,  K5  is  the  power  valve  flow  coefficient, 

VI, VOL  is  the  valve  overlap, 

DKQP  is  the  power  valve  flow  gain. 

The  power  valve  and  motor  are  modeled  as  shown  in  Figure  6.107-4. 
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PV 


DKPQ 
— V^AA^ — 


i 


PM 


figure  b. 107-4 


The  pressure  drop  across  the  valve  and  motor,  PS,  is 

PS  = PV  1-  I’M 

Where,  PV  Is  the  pressure  drop  across  the  valve, 

PM  is  the  pressure  drop  across  the  motor. 

I’S  .in  terms  oC  the  flows  through  the  orifices  Is 


PS  = g + -PVK 


DKl’tJ 


QR 

is 

the 

flow 

through  the  valve, 

QVR 

is 

the 

flow 

displaced  by  the  motor. 

DKPQ 

is 

the 

motor 

leakage  coefficient. 

0.107.3 
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With  the  oriiice  flow  coefficients,  CN,  calculated  for  each  of  the  six 


orifices  a total  flow  coefficient,  CT,  is  calculated 

n,  1/2 

Ct  “ CN(1  - —#)  N = 1,6 
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l’or  the  flapper  valve  orifices  and  the  power  valve  and  motor  equivalent 
oriiice,  PLfj  Is  equal  to  zero. 

The  pressure  drop  across  the  component  is 


PS  = Cl  - C2  - QTZ1  - QTZ2  6. 10/. 5 

where,  Cl  and  C2  arc-  the  characteristic  line  pressures,  21  and  22  are  the  line 
impedance.;.  The  pressure  drop  across  the  component  in  terms  of  Cl  is: 


PS 
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Combining  6.107.5  and  6.107.b  and  solving  for  QT, 


QT  = 


-Cl'2  <21  + 22)  +Y  (CT2  (21  + 22)  )2  + 


QT  is  compared  to  the  QT  calculated  during  the  previous  time  step  and  if  the 
difference  is  less  than  .001  CIS  the  program  proceeds  to  the  next  section. 

If  the  difference  between  the  old  and  new  QT  is  greater  than  .001  CIS  and 
ITER  Is  less  than  25,  PS  is  recalculated  using  equation  6.107.4  and  CT  and  QT 
are  recalculated. 

With  the  pressure  drop  across  the  component  calculated  the  flow  through 
the  power  valve,  (JR,  may  ue  calculated.  The  pressure  drop  across  I he  power 
valve  and  motor  Ls, 


PS 


QK2  (VR_  - QVR 
K57  + QKTQ 
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Solving  for  QR  yields , 


+l/(K52_)  + 4 K52(^_  + Ps)' 

- DKPQ  V ‘•DKPCr  ^ 4)KPQ 
c^R  2 

With  QR  known,  the  left  and  right  rudder  panel  positions  may  be  calculated 
using  the  model  in  Figure  6.107-2. 

6.107.2  Assumptions 

The  model  is  limited  to  simulating  one  channel  of  the  secondary  actuator 
and  it  is  assumed  that  the  other  channels  are  operative  and  will  give  identical 
outputs  in  terms  of  available  force  at  the  power  spool. 

6.107.3  Computational  Method 

This  program  uses  Tustin's  method  of  integration  and  is  arranged  such 
that  each  differential  is  evaluated  using  the  latest  value  of  the  previous 
integral  in  a series  calculation,  rather  than  the  more  usual  parallel  inte- 
gration methods,  where  the  integrals  are  effectively  evaluated  simultaneously 
using  previous  values  to  evaluate  the  derivatives. 

Predicted  values  are  used  to  improve  the  calculation  where  the  use 
of  a previous  value  would  incur  a significant  error.  The  computation 
follows  the  usual  component  subroutine  layout  shown  in  Figure  6.1-1  on 
Page  6.1-2. 

1000  SECTION 

This  section  is  used  to  initialize  the  integration  constants  used  by  the 
subroutine.  Subroutine  Tustin  is  called  to  initialize  each  of  the  constants. 

The  system  used  to  supply  the  servovalve  is  also  selected  using  the 
input  constant  INV  which  indicates  which  systems  are  active  or  shut  down. 

1500  SECTION 

This  section  is  used  to  return  values  for  the  steady  state  calculation 
so  that  the  system  state  conditions  can  be  calculated.  It  is  assumed  that 
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the  secondary  actuators  and  the  motors  are  at  zero  velocity.  For  the  two 
hydraulic  systems  used  to  power  the  motors  only,  the  steady  state  flow  con- 
sists of  leakage  flow  past  the  power  valve.  The  leakage  impedance  is  added 
to  the  Q value  in  PQLEG(INEL, 6) , and  the  pressure  drop  A(PSC+MA)  is  subtracted 
from  the  inlet  pressure  PQLEG(INEL,11) , MA  may  have  the  value  of  0,  1 or  2 
depending  on  whether  the  pressure  for  system  1,  2 or  3 is  being  calculated. 

For  the  system  which  supplies  the  two  4-channel  servovalves  the  only 
steady  state  flow  is  that  due  to  the  first  stage  servovalve  leakage.  It  is 
assumed  that  the  leakage  through  the  second  stage  control  valve  and  the  power 
valve  are  small  compared  to  the  servovalve  leakage  and  can  be  ignored.  The 
first  stage  impedance  (1. 0/ (DQL0SS)*8. 0) )**2 . 0 is  added  to  the  value  in 
PQLEG(INEL, 8) , and  the  pressure  drop  (A(PSC+MA))  is  subtracted  from  the  inlet 
pressure  PQLEG(INEL,11) . 

2000  SECTION 

This  section  is  used  to  initialize  the  variables  to  their  steady  state 
values.  If  the  initial  position  is  other  than  zero,  variables  used  to  calcu- 
late the  panel  positions  are  evaluated.  Other  variables  are  set  to  zero.  In 
addition  some  of  the  constants  used  in  the  3000  section  are  defined. 

3000  SECTION 

The  3000  section  models  the  transient  response  of  the  rudder/speedbrake. 
It  is  divided  into  four  parts.  Part  one  models  the  servovalve.  Part  two 
models  the  pressure  and  flow  demands  of  the  hydraulic  motors.  Part  three 
models  the  load  dynamics  of  the  rotary  actuators  and  aerodynamic  panels.  Part 
four  models  the  gear  efficiency. 

Before  the  servovalve  calculations  in  part  one  are  begun,  a test  is  made 
to  determine  which  hydraulic  system  is  to  supply  the  servovalve  via  the 
switching  valve.  The  aerodynamic  loads  on  the  two  rudder/speedbrake  panels 
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are  then  calculated  using  hinge  moments  and  hinge  moment  slopes  provided  by 
the  command  and  guidance  program. 

The  servovalve  calculations  in  part  one  are  performed  twice,  once  for  the 
rudder  commands  and  once  for  the  speedbrake  commands.  The  command  and  guidance 
program  supplies  a rudder  command,  A(VC+N),  which,  when  summed  with  the  rudder 
position  feedback,  A(VFP+N),  commands  the  servovalve  torque  motor  (N=0  for 
rudder,  N=1  for  speedbrake).  The  command  to  the  servovalve  causes  a displace- 
ment of  the  mod  piston  which  is  connected  to  the  power  valve.  The  resulting 
power  valve  displacement,  A(XPS+N),  is  used  to  calculate  a power  valve  flow 
coefficient  A(K5+N). 

Part  two  of  the  3000  section  uses  the  power  valve  flow  coefficient  along 
with  the  flapper  valve  leakage  coefficient,  A(K1+N),  and  the  secondary  valve 
flow  coefficient,  A(K3+N),  also  calculated  in  part  one,  to  calculate  the 
pressure  and  flow  demands  of  the  rudder  and  speedbrake  motors.  The  calcula- 
tions in  part  two  are  performed  three  times,  once  for  each  hydraulic  system 
connected  to  the  rudder/speedbrake . The  calculation  technique,  uses  an  itera- 
tive procedure  to  solve  for  the  total  flow  from  each  system,  A(QRS+MA) . (MA 
may  be  equal  to  0,  1 or  2 depending  on  which  system  is  being  solved^-  With 
the  flow  known,  the  pressures  at  the.  connections  are  calculated.  The 
flow  to  the  motors  through  the  power  valve,  QR,  is  calculated  next  and  is 
used  to  calculate  the  velocity  of  the  rudder  motor,  A(VMTR+MA). 

Part  three  sums  the  individual  rudder  motor  velocities.  The  total 
velocity  is  integrated  to  give  the  total  angular  displacement  of  the  power 
drive  unit.  The  angular  displacements  for  the  rudder  and  speedbrake  arc  then 
summed  to  give  the  angular  displacement  of  the  rotary  actuators.  The  torque 
caused  by  loads  on  the  panels  are  calculated  next.  The  torques  acting,  on 
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both  panels  are.  integrated  twice  to  yield  the  position  of  the  rudder/ 
speedbrakc  panels. 

Part  four  models  the  effect  of  the  grear  efficiency  on  the  rudder/ 
speedbrake  load  reaction  torque. 

6.107.4  Approximations 

The  aerodynamic  panel  friction  and  damping  were  unavailable  for  use 
in  the  model,  therefore,  approximate  values  were  used  and  should  be  revised 
when  actual  values  become  available. 

6 . 107 . 5 Limitations 
None . 
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6.107.6 

Variable  Names 

Variable 

Description 

Dimensions 

AER0T1 

Aerodynamic  load  on  R.H.  panel 

in- lb 

AEROT2 

Aerodynamic  load  on  L.H.  panel 

in-  lb 

BM 

Motor  viscous  friction  coefficient 

0.015 

in-lb-sec 

BP 

Viscous  damping,  each  rudder  panel 

1808  . 

in- lb-sec 

CER 

Combined  Rudder  Orifice  Coefficient 

cis/»/psT 

CES 

Combined  Speedbrake  Orifice  Coefficient 

CIS//PSI 

CK 

Total  flow  characteristic 

CIS//PSX 

CT 

Flow  characteristic  array 

CIS/vfSI 

DAPS 

Mod  piston  area 

0.1930 

in2 

DH 

Torque  motor  hystersis 

0.006 

in-  lb 

D1L 

Servo  amplifier  saturation  limit 

8.0 

ma 

DJMR 

Motor  moment  of  inertia  (rudder) 

0.00636 

in- lb-sec^ 

DJMSB 

Motor  moment  of  inertia  (speedbrake)  0.00565 

2 

in- lb-sec 

DIP 

Inertia  of  each  rudder  panel 

1169  . 

2 

in- lb-sec 

DKA 

Servo  amplifier  gain 

15.0 

ma/v 

DKB 

Bernoulli  coefficient 

0.52 

in 

DKHC 

Rotary  actuator  spring  constant 

7 . 0E6 

in-lb/rad 

A(DKP) 

Rudder  position  gain 

0.184 

v/deg 

A(DKP'{  1) 

Speedbrake  position  gain 

0.0937 

v/deg 

DKP I 

Nozzle  pressure  feedback  gain 

0.000138 

in3 

DKPO 

Motor  leakage  coefficient 

0 . 004 

CIS/PSI 

J 
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DKQP 

Power  spool  flow  gain 

73.24 

±n  ^ / (sec.-lb^^ 

DKQS 

Secondary  valve  flow  gain 

0.3868 

• 3n  ,J/2 

in  /(sec- lb 

DKTM 

Torque  motor  gain 

0.045 

in-lb/ma 

DKXPS 

Wire  feedback  gain 

6.22 

in- lb/ in 

DMLK 

Power  valve  leakage  coefficient 

1.0F.6 

PSI/CIS 

DQLOSS 

First  stage  leakage  coefficient 

2.37E-2 

CIS/PS1 

EFFG 

Efficiency  of  summer  and  mixer 

gearing 

96 

percent 

EFFH 

Efficiency  of  rotary  actuators 

(Hinge  gear  boxes) 

82 

percent 

EPST 

Net  error  torque 

in- lb 

EYE 

Torque  motor  input  current 

ma 

A(FB+N) 

Bernoulli  force  on  power  spool 

lb 

FDR 

Net  rudder  motor  torque 

in- lb 

FDSB 

Net  opeedbrake  motor  torque 

•in-  lb 

FFLF 

Friction  force  on  left  panel 

in-lb 

FFR 

Friction  force  on  rudder  motor 

in- lb 

Fj  HP 

Friction  force  on  right  panel 

in- lb 

FFSB 

Friction  force  on  speedbrake  motor 

in- lb 

FI 

Dummy  variable 

FLOW 

Flow  to  mod  piston 

CIS 

A(FLP) 

Net  torque  on  left  panel 

in- lb 

FRIC 

Motor  Coulomb  friction 

9.0 

in- lb 

FRICP 

Panel  Coulomb  friction 

TBD 

in- lb 

A (Fill') 

Net  torque  on  right  panel 

in- lb 

A(FSTL) 

L.H.  panel  load 

in- lb 

A(FSTR) 

R.H.  panel  load 

in- lb 
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GH 

Power  hinge  gear  ratio 

473.921:1 

GMR 

Mixer  gear  train  ratio,  rudder 

1.47:1 

GMS 

Mixer  gear  train  ratio,  speedbrake 

4.46:1 

G3 

Summer  gear  train  ratio 

7:32:1 

ITER 

Iteration  counter 

- 

A (Kl+N ) 

Servovalve  leakage  characteristic 

A(K3+N) 

Secondary  actuator  load  characteristic 

A ( K5+N ) 

Power  valve  flow  characteristic 

LI 

Supply  connection  number 

- 

L2 

Return  connection  number 

- 

A(PMLR+MA) 

Rudder  motor  load  pressure 

PS1 

A(PMLSB+MA) 

Speedbrake  motor  load  pressure 

PSI 

A(POSR) 

Total  rudder  motor  rotation 

Rad 

A(POSSB) 

Total  speedbrake  motor  rotation 

Rad 

A(PSC+MA) 

System  pressure  loss  across 

rudder /speedb  rake 

PSI 

A (P 1+N ) 

Mod  piston  pressure 

PSI 

A(QRS+MA) 

System  flow  through  rudder/speedbrake 

CIS 

A (QKV+MA) 

Flow  through  rudder  power  valve 

CIS 

A(QSBV+MA) 

Flow  through  speedbrake  power  valve 

CIS 

QVR 

Flow  through  rudder  motor 

CIS 

QVSB 

Flow  through  speedbrake  motor 

CIS 

RMI)  IS 

Motor  volumetric  displacement 

(rudder) 

0.08276 

in3 

A(RFOSL) 

Left  panel  position 

Rad 

A(RFOSR) 

Right  panel  position 

Rad 

SPOSFL 

Left  panel  deflect  ion 

Rad 
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SBMDl S 

Motor  volumetric  displacement 

(speedbrake) 

0.08276 

in3/rad 

SPOSFR 

Left  panel  deflection 

Rad 

SR 

Ratio  of  motor  static  to  Coulomb 

friction 

2.0 

SRP 

Ratio  of  panel  static  to  Coulomb 

friction 

2.0 

STL 

Torque  due  to  left  panel  deflection 

in-1  b 

STR 

Torque  due  to  right  pane]  deflection 

in  -i  b 

SW1T 

Switching  valve  switching  pressure 

PSI 

SYS 

System  supplying  servovalve 

- 

A(TAEROL) 

Left  panel  aerodynamic  load 

in-lb 

A(TAEROR) 

Right  panel  aerodynamic  load 

in- lb 

TC 

Torque  mortor  torque 

in- lb 

A (TP  1P+N  ) 

Mod  piston  predicted  pressure  feedback 

in- lb 

TR 

Rudder  gearbox  reaction  torque 

in- lb 

A(TXPS+N) 

Wire  feedback  torque 

in-lb 

VA 

Net  position  error 

V 

m(vc+N) 

Rudder/speedbrake  position  command 

Deg 

VLVOL 

Power  valve  overlap 

0.0011 

in. 

VM 

Motor  fluid  volume 

2.77 

in3 

A (VMTR-PMA) 

Rudder  motor  velocity 

Rad/sec 

A(VMTSB+MA) 

Speedbrake  motor  velocity 

Rad /sec 

A (VRT+1 ) 

Sum  of  rudder  motor  velocities 

Rad/sec 

A(VSBT-fl) 

Sum  of  speedbrake  motor  velocities 

Rad/sec 

XII, 

Power  valve  displacement  limit 

0.065 

in 

A (XPS+N ) 

Power  valve  displacement 

in . 

XVI, V 

Effective  power  valve  displacement 

in. 
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Subroutine  listing 


SUBROUTINE  ACT107  ( 0, DT, DD, L) 

C REVISED  JANUARY  23,1976 

COi'MON  NTELPL,  NTOLPL,  T PT , I PCI  NT,  NPTS , ItNEL,  KN EL, NTOPL,NLPLT ( 61 , 3)  , 
1 PQLEG (90,12) , LCS(90,10) , ILEG(1400) , PN ( 9 0 ) , QN ( 9 0 ) 

COi'lMON/SUB/ FARM  ( 150,9)  ,PN(  1500)  ,QM(  1500)  , P(  300)  ,Q(  300)  ,C( 300) 

1,2(  300),  RHO(  20)  ,S20RHO(  20)  , VI3C( 20)  ,BULK(  20)  ,TEI4P(  20)  ,PVAP(  20) 

2,  ATPRES, T, DELT/TFINAL, PLTDEL, PI , TITLE ( 2 0 ) , LEGN, ICON 

3, KTEHP( 99) , LSTART ( 150) ,NLPT( 150) , LTYPE( 99) ,NC( 99) , INX, INZ 

4, INV, I STEP, NLINE ,NEL, IND, I ENTR , MNLINE , MNEL , MNLEC , MNNODE , rtN PLOT 
5 , MNLFTS , FiDS 

DIMENSION  D ( 1 ) , OT ( 13)  ,OD( 1),L( 1) , A { 17 0 ) ,CT( 6), PL (6) 

REAL  MTOHR, HTORSB 

I NT EGER  VF P , TX PS , XPS , TPl P , XYQS , XQ1 , XQ, XQS , 

1 PI, PB, PIP, POSR, POSSB, RPOSR, RPOSL, VRPP, VLPP, 

2 PSC, QRS , PHLR, PHLS3 , VNTR, VNTSB , VTR , VTStl , SYS ,TR, TSB , 

3 VRT, VS3T, FSTP , PSTL, RP 1 , RI 2 , VC , TAEUOR, TAEROL, 

4 VTRP, VTSOP , VTRO , VTSBO , FAR , FARO, FASB , FASBO , DKP,QRV,QLBV 

5 , FRP, FLP,FRPO, FLPO, VRPO, VLPO, VRP, VLP, RPOSRP , RPOSL P , RP03RS , RPOSLS 

6 , COl’IS  , CONN  , CON  L 


A ARRAY  VARIABLES  

DATA  VFP/l/,XPS/5/,TPlP/7/, XOI/9/, 

1 XYQS/ 1 1/ , XQ/  1 5/  , Pi  / 1 7/  ,F  13/ 19/, PIP/ 21/,  PSC/23/, 

2 ORS/26/  , PM L R/  29/  , PtlLSB/  3 2/ , V.'ITK/  3 5/  , VfiTSa/38/  , 

3 TR/41/,TSB/44/,VTR/47/,VT3B/50/, POSR/ 5 3/ , POSSB/ 5 4/ , 

4 RPOSR/ 5 5/  , RPOSL/ 5 6/  , VHP/ 57/  , VLP/  5 8/  , QKV/  59/  , QSi3V/ 6 2/  , XOS/ 6 5/  , 

5 DKP/0  9/,  FAR/71/,  F ARO/ 7 4/ , FASI3/ 7 7/  , FASBO/8 0/ , VRT/ 8 3/ , VS 3T/ 3 5/ , 

6 FSTR/ 8 7/ , FSTL/ 8 3/ , VRP P/ 8 9/ , VL  PP/9  0/ , RP1/ 9 1/ , RP  2/ 9 3/ , K I NT/ 9 5/  , 

7 KSSGN/9  8/  , KR  Pl/99/  , KP.1L/1 02/  , KUYST/1 05/ , Kl/1 1 5/  , K 2/ 1 16/,  K?/ 117/, 
8K  4/1 18/ , K5/ 1 1 9 / , K6/1 20, ' , VTRP/ 121/,  VTSB  P/1  24/  , VTRO/ 1 27/  , VTSBQ/ 1 30/ 
9 , KFLOW/ 13  3/, TX  PS/ 1 36/ , FRP/ 1 38/ , FLP/1 4 0/ , FRPO/ 142/, FLPO/ 143/ 

A , VR PO/ 1 4 4/ , VL TO/ 14  5/, RPOS RP/ 1 4 6/ , RPOS  LP/ 147/, RPOS RS/ 148/, 

B RPOS LS/  149/,  COi'i S/ 1 5 0/  , CONN/ 151/,  COM  L/ 152/,  KCOi-l/  156/ 

DT  ARRAY  VARTABLLS  

DATA  VC/ 1/ , TAEROL/ 4 / , TAEROR/ 6/ 

RUDDER/SPF.EDBKAKE  INPUT  DATA 

DATA  DK  PQ/  0.004/,  Vi 4/  2 . 7 7/  , 0/ 1 8 0 0 0 0 . / , DJ  P/ 1 1 6 9 . / , B P/ 1 B 0 8 . / , 

1 DMLK/1 . 0E6/ , DQLOSS/2. 37E-2/ , DKPI/0. 0003 38/ , OKA/ 1 5 . 0/ , 

2 DKTri/0. 04  5/,  QKXPS/ 6 . 2 2/  , DAPS/ 0 . 19  30/ , VLVOL/ . 001 1/ , 

3 RNDIS/  0.08276/,  SBr-lDIS/  0.03276/,  Brl/0 . 015/,  DJUR/  . 00636/, 

4 DJiNSB/  . 00  565/,  OK11C/7 . 0E 6/  , DKB/ 0.52/, GS/7 . 3 2/  , GMR/ 1.47/  , 

5 GMS/ 4.46/,  GU/ 4 7 3 . 9 21/  , EFFIi/  . 3 2/  , F.FFG/  .96/,  FKIC/  9.0/, 

6 SR/2 . 0/ , BF/ 1 . 0/ , FRIG P/ 1 2 . 0/ , S RP/2 . 0/ , UF P/ 1 . 0/ , XI L/0 . 065/ , 

7 DH/0 . 006/ , DI L/8 . 0/ 
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6.107.7  (Continued) 


IF  (IENTR)  1000,2000,3000 
1000  IF  ( INEL.NE.  0)  GO  TO  1500 

INITIALIZATION  

DO  1010  1=1,170 
1010  A( I ) =0. 0 

DO  1020  1=1,30 
1020  DT( I ) =0. 0 

TDRHO=S20RHG( KTENP( IND) ) /SQRT ( 2 ./ 7 . 8 2E-5 ) 
CALL  TUSTIN  ( 1 , DUMNY, A( KINT) , DELT) 

CON  1=DKPQ/  ( Vi-l/  ( 4 VB ) ) 

CALL  TUSTIN  ( 2 , CONI , A(  KP'.-IL)  , DELT) 
CON3=OJP/3P 

CALL  TUSTIN ( 2 , CON3 , A( KRPl ) , DELT ) 

CALL  TUSTIN ( 2, .005,A{ KFLOvJ) , DELT) 

CALL  TUSTIN ( 2, . 0159 , A( KCOH) , DELT ) 

S YS  = 0 

DO  15  1=1,3 
K = I + G 
SY3=SYS+1 
IF( INV) 20, 30,10 
10  1F( INV.EQ.L( K) ) GO  TO  30 
15  CONTINUE 

20  IF(INV.EQ.-L(K) ) 3YS=S YS+1 
30  CONTINUE 
RETURN 

1500  CONTINUE 

.■'iA=  ( ( KNLL+1  ) / 2 ) - 1 

OA=PQLEG( INEL, 1) 

OS  = PQLl:G(  I:nEL,  2) 

IF( SYS. EQ. ( KNEL+1 )/2) GO  TO  1600 

PQLEG(  I KIEL,  6 ) = PQL  EG  ( INEL,  6 ) + Di-lLK 

PQLLG( INEL, 11)=PQLEG{  INEL,  1 1 ) -QA*  QS*D.'iL" 

A ( PSC+i  iA)  = QA*  OS  * DtlLK 

A(  QRS-t-MA)  =QA*QS 

RETURN 

1500  CONTINUE 

QLOSS=( 1.0/ { DQLOSS*8. 0) ) **2.0 

PQLEG( INEL, 8)=PQLEG( I NEL, 8 ) +QLOSS 

A(  PSC+rlA)  =QLOSS*QS*QA*  *2.0 

PQL  EG  ( INEL,  11)=PQLEC,(  INEL,  i 1 ) - A ( PSC+.'lA) 

A ( QRS+.'IA ) =QA*QS 
RETURN 

2000  CONTINUE 

SWIT=1 300. 

DKQS  = 0 . 380R*TDRIiO 
DI<0P=7  3. 24*TQRHO*3QRT(  2.  ) 

DELT2=DELT/2. 0 
A ( DK  P ) = 0 . 134 
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(Continued) 


A(  DKP+1  ) . 00  3 7 
DKGR=l/(GS*Gi-iR) 

DKGS  B = 1/  { GS  * Gi-iS  ) 

D ICOi-lR=D'f  ( VC  ) / ( 5 7 . 3 * A ( OKP)  ) 

DICOi'iS=DT{  VC  H ) /(  2. 0*  57 . 3*A( DKP+1 ) ) 

A( POS  R)  = { DICO;lR*Gli) /DKGR 
A{  POSSB  ) - ( DIC(),-1S*GM  ) /DKGSB 
A(  VFP)  = UT(  VC  ) 

A( VFP+1 ) =DT( VC+1) 

A { RPQSR)  =DICOlR-D ICOi iS 
A ( RPOGL)  =Dicoa r+dicohs 

A ( HPOSR  ) = A(  K POS K ) - ( A( RPOSU) *57.  3 * DT ( TALROR+1  ) +DT( TALROR)  )/DKtlC 
A(  RPOSL)  =A(  RPOSL)  - ( A ( RPOSL)  * 57.  3* DT ( TALROL+ 1 ) +DT(  TALROL)  )/DKHC 
A ( RPOSKP) -A ( RPODR) 

A( RPOBLP) =A ( RPOSL) 

INTTlAM'/.l,  COMTkGL  ACTUATOR  VARIARLhS 


A ( CO?l  L ) = DT  ( VC  ) 

A ( COtlS  ) =DT(  VC  ) 

\ ( COi-1  L+  3 ) = DT  ( VC  + 1 ) 

A ( COi>lG+  3 ) -DT( VC+ 1 ) 

DT ( 10 ) =A( VFP) 

DT ( 11)--A(  VFP+1) 

DT ( 9 ) ■=  A ( R POUR)  *57.  3 
OT ( 8)=A( RPOSL) *5  7.  3 
CALL  PDU.1P(  A ( 1 ) , A ( 1 50)  , 1 ) 

RLTURN 

3000  COMTIMUL 

IF  M-0  I M DIC  ATI  THI-  RUDDLR , '9=1  1MHCATLS  THL  SPLLDURAKL. 
DO  3010  1=1,3 
K = l 

IF(  A(  PSC  + K-1 ) .GT.GWIT) GO  TO  3020 
3010  CONTI  NUi: 

3020  IF  ( K.rih.SYS  ) SR  IT=1  900. 

3YG  = K 

1 F ( BWIT.GT.  1 300.)  SV.  IT  -Bw  IT- 50. 

N--0 

alroti  = dt(talroh)  t r/r ( taf ror+  1 ) *A(  kposr)  *57. 3 
AF.ROT2  = DT(  TALROL)  + DT(  TALROL+l  )*A(  RPOSL)  *57.3 
30  50  IF  (N.GF..2)  GO  TO  3 300 

SLKVO  A.1PLIFIFR 


A ( f O.  'iN  (-3*0  ) = DT  ( V- 'IN) 

A ( CO  9 L + 3 * a ) = D YN  A , i ( A ( CO.-IS  + 3 * N ) , A(  CO.-1L  + 3*N  ) ,A(  KCOh)  ) 
A ( COi-)S  + 3*N  3 =A(  COl-i-4  ( 3*  9) 
l)T(  1 7+N)=A(  C0.91.+  J*Y) 

VA  = A ( C:Oil  L+  3 * N ) - A l V J ) 
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(Continued) 


EYE=VA*DKA 

CALL  XLI.-1IT(  NYK,T.4,F1  , -OIL,  OIL) 

TOROUL  .-10T0R  CONSTANTS  

Til-EYE  * D KTi'l 

TC-ilYSTL  I ( Til , DU  , A ( KH YST+  S*N  ) ) 

TXPSS=A ( TXPS+N ) 

A( TXPS+N ) =A(  XPS +N ) * DKXPS 
TXPSP=2 . 0* A ( TX P3+N ) -TXPSS 
L PS  T =T  C - A ( T P 1 P + N ) - T X PS  P 

IF  ( ALLS  ( L PST ) .GT.  . 064973)  EPST=3IGN(  . 064973, LPST) 
A ( !<  3 + N ) -APS  ( LPST*  DKOS  ) 

A ( k l +M)  = noT,oss 


POWER  Sl3OOL  DISPLACEHENT 


A ( XY03+2*N+1  )=EPST*DKQ3 

A(  XQI+N)  =DYNA.1(  A(  XY0S  + 2*N)  , A(  XQI+N)  , A(  KFLOW ) ) 

F LOW  = A ( X QI  + N ) * SOP ASS ( A ( PSC+SYS-l ) -SIGN  ( 1.0, A( XQI ) )*A(PlP+N)  ) 
A ( X OS  + 2 * N + 1 ) =F  LOW/  DA  PS 

A ( XPS  + N ) =DY.NA,I  ( A(  XQS  + 2*N)  , A(  XPS+N)  ,A(  K1NT)  ) 

CALL  XLIriIT(  A(  XPS+N)  f A(  XQS+2*N+1)  ,A(  KSSGN  ) ,-XIL,XIL) 

IF( A( KSSGN) .EC. 0. 0)  GO  TO  3060 
A ( X OS  + 2 * N + 1 )=n.O 
A ( K 3 + N ) = 0 . 0 
3 06  0 COST  I Nil. 

A ( X OS  + 2 * N ) = A ( Xr*S  + 2*N  + ] ) 

A(  XY'^S  + 2 * N ) = A ( X Y Of,  + 2 * N + 1 ) 

P 1 S ~ A ( Pl+N) 

A ( Pl+N ) =A( FB + N )/( 4 . 0*DAPS ) 

A ( FB+N ) = 0 . 0 

A ( PI P+N ) -2. 0*A( Pl+N) -PIS 
A(TP1P  IN)-  A ( PI  P + ,4)  * D K P I 
NXV  -A  ( XPS+N )/VLVOL 
I F ( N X V ) 3 100,31 10,3120 

X PS  LEGS  THAN  ZERO 

3100  X VLV-A ( XPS+N )+VLVOL 
GO  TO  3130 

C XPS  LESS  THAN  VALVE  OVERLAP 

3110  XVLV=0 . 0 

GO  TO  3130 

C XPS  GREATER  THAN  ZERO 

3120  XVLV-A ( XPS+N ) -VLVOE 
3 130  A ( K 6 + N ) = .ABS  ( OKOR+XVEV) 

D i ( 1 4+N) -XVLV 
N = N + 1 

GO  TO  3 060 
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6.107.7  (Continued) 


PRESSURE  DROP  3ETWEEN  CONNECTIONS 


3200  CONTINUE 

DO  3300  1=1,3 

ITER=0 

rlA=I-l 

THE  VARIABLES  IN  THE  A ARRAY  WILL  BE  USED  IN  SETS  OF  THREE 
USING  OWL  POSITION  FOR  EACH  SYSTEM.  THL  POSITION  WILL  BL 
DETERMINED  BY  THE  CONSTANT  M A . 

Ll=L ( 2*1-1) 

L2=L( 2*1) 

PS=A( PSC+MA) 

A ( PSC+MA)  IS  THE  PRESSURE  DROP  ACROSS  THE  CONNECTIONS  FROM 
THE  PREVIOUS  TIME  STEP. 

QCLD=A  ( QRS+iiA) 

IF  ( I. EC. SYS)  GO  TO  3220 
C SYS  IS  THE  ACTIVE  CONTROL  SYSTEM 

DO  3210  K= 1 , 4 
C T ( K ) = 0 . 0 
3210  PL( K) =0 . 0 
GO  TO  3 2 3 5 
3220  DO  3230  K=l,4 
PL( K) =0. 0 

3230  CT(K)=A(Kl+K-l)*4,0 

PL(  3 ) x A ( P 1 ) * S I ON  ( i , 0 , A ( X PS  ) ) . 

PL(  4 ) = A ( P 1 + 1 ) *S IGN ( 1.0, A(  XPS+1 } ) 

3235  CONTINUE 

CT ( 5) =A( K5) 

CT ( 6 ) =A ( K 6 ) 

0VR=A  ( VriTR+MA ) * RMD1  S 
0VS3=A( VMTSB+MA) *S3MDIS 
PS=A ( PSC+MA) 

QR  = A ( QUV+MA) 

OS  13= A ( OSBV+MA) 

SX  P3R=S IGM ( 1 . 0, A( XPS) ) 

SX  PSSB  = S IGN ( 1 . 0 , A( XPS  + 1 ) ) 

3240  PL( 5 ) = ( QR-QVR ) *SXPSR/DKPO 

PL( 6 ) =( OSB-QVSB) *SXPSSB/DKPQ 
ITER= 1TER+1 
CK=0 . 0 

DO  3 26  0 K 1 , 6 

3260  CK=CK+CT( K) *SORABS( 1-PL(K)/PS) 

IF(CK.NE.O.O)  GO  TO  3265 

ON  EW - ( C ( L 1 ) - C ( L 2 ) ) / ( Z ( L 1 ) + Z ( L2 ) +DMLK) 

PS  = C ( L 1 ) - QN  Li  W * Z ( E 1 ) - C ( 1, 2 ) - ON  EW  * Z ( L 2 ) 

QR=0. 0 
QSB=0. 0 
GO  TO  3274 
3265  CONTINUE 

X=< (Z(L1)+Z( L2) )*CK**2.0)/2.0 
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6.107.7  (Continued) 


Y=4.0*(C(Ll) -C (L2) )/(CK*(Z(Ll)+Z(L2) ) ) **  2 . 0 
TPRES= 1 . 0+A3S ( Y ) 

QNL'W=X*(-1.0+SQRT(TPRL3)  )*SIGN(i.0,Y) 

PSN=C  ( L1)-0NLW*Z( LI )-C( L2)-QNEW*Z{ L2) 

IF ( AB3 ( PS-PSN } . LT. .1. OR. I TER. GT. 2 6 ) GOTO  3274 
PS  = ( PSN+PSJ/2. 

QR=0 . 0 

IF(A(K5) .EQ.0.0)  GO  TO  3262 
A.1  = 1/  ( A ( K 5 ) * * 2 . ) 

Bl-l/DKPQ 

C1-A3S ( PS+QVR*SXPGR/DKPQ) 
QR=(-31+S0RT(S1**2.+4.*A1*C1) )/(2.*Al) 
QR=QR*3IGN(  1.0,  ( PS+0VR*3XPSR/DKPQ)  *A  ( XPS)  ) 

3262  QSB=0.0 

IF(A(K6) .LQ.0.0)  GO  TO  3240 
A2  = 1/(A( K 6 ) * * 2 ) 

B2=1/DKPQ 

C 2=ABS  ( PS+QVS3*SXPSS3/DKPQ) 

QSI3=(  - D2  + JQRT ( B2**2.+4.*A2*C2))/(2.*A2) 

OS B=QS  B * 3 1 GN ( 1.0,  ( PS+OVSB*SXPSSi3/DKPQ)  *A(  XPSt-1)  ) 
GO  TO  3240 
3274  CONTINUE 

A ( PSC+MA)  *PS 
A ( QRV+MA) = QR 
A(  OSBV+ilA ) =QS  13 
0(  LI ) = QN  E.v 
0( L2 ) =~QNLW 
a(ORS+ma)=qnew 

P(  L1)=C( L 1 ) — Q ( Ll) * Z ( Ll) 

P( L2)=C( L 2 ) — Q ( L2) *Z( L 2 ) 

A ( PMLR+MA)  = ( QR-A(  VmTR+HA  ) * U.1DIS  ) * 2 50 . 

A ( Pi  1LSB+MA ) = ( Q.3  l3-A(  VMTSD+MA ) *SB.'1DIS  ) *2  50 . 
i-1T0RR=M  P.  ILR+il  A ) * Ri-IDI  3 
i*1TORSB=A ( P.-1LS3+MA)  *33MMS 

MOTOR  FRICTION  AND  DAMPING  EFFECTS  


P DR  = MTOR R-A ( T R+M A ) 

FDSB-MTOR5B-A ( TSB+M A ) 

1 F ( A ( PSC+MA) . LT.  1 300. ) 3F= ( 1 300 . -A ( PSC+MA)  )/50.  -H 

CALL  C F R I C ( FDR,  FFR,  A(  VTRP+MA)  , A ( VTR+MA  ) , A(  FAR+.-iA)  , A(  FAKO+MA) 

1 , FHIC, SR, BF) 

CALL  C F R I C ( FDSB  , FFHB  , A(  VTSBP+MA)  , A(  VTSB  + MA)  ,A(  FASH +1-1 A ) ,A(  FASDOf.iA 
1 , FRIC, SR, BF) 

3 F = 1 

A ( FARO+MA ) =A ( F.lK+MA) 

A ( FA3BO+MA)  =A(  FASB+MA) 

A ( FAR  MA ) -FDR— A ( VTRP+MA  ) * ( B.-l/DJMR)  +FFR 
A{  FASB+MA) =FDS»-A( VTSBP+MA) * ( BM/DOMSB)  -(  l-’FGB 


A 
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6.107.7  (Continued) 


A ( VT  rtO+i  1 A ) = A ( VT  K+il  A ) 

A(  VT3I30+.IA)  = A(  VTbil+.-lA) 

A ( VT  R+.IA  ) = /\  { VTRCH  , ' A ) + 0L;LT2+  { A ( FAR+MA)  +A(  PAR0+F1A)  ) 

A ( VTSU+.-iA ) = A ( VToliO  t,l A ) + DLLV2*  ( A(  FAS 3+1-1  A)  +A(  FASBO+ZiA)  ) 

A ( VT  RP+riA ) - 2 . 0 * A ( VT  R +F,A  ) -A  ( VT  RO+.+A ) 

A ( VT3I3  P+ilA)  - 2 . 0 * A ( VTriU+rfA ) - A ( VTSBO+riA ) 

A(  VMTR+ilA)  =A{  VTK+.'IA  ) /DO, Id 
A(  VrlTSO+;iA)  =A(  VTG3+.lA)/U,1iiS3 
3 300  CONTINUE' 

DO  3310  1=1,3 

A ( P 13  ) = A ( PR)  + A ( XP3)  *DKH*(A(  PSC+I-1)-A(  Pi-1LR+I-1  )*SXPSR) 

A ( F 3 + 1 ) = A ( F»+]  ) +A(  XP3  + 1 ) * DKI3*  ( A ( P3C+1-1)  -A(  PHLSU+ I-  1 ) * 3XP3SB) 
3310  CONTINUE 

R'JDOFK  AND  3PLFDRRAKF  LOAD  DYNAMICS 

A( VHT) =A( VRT+1 ) 

A ( VS  BT ) =A ( V3 RT  + 1 ) 

A(  VRT+1 ) =A ( V:-1TK)  +A(  V.lTR+1  ) +A(  VMTK+2  ) 

A( VS3T+1 ) =A(  Vi-lTSti ) -I  A(  ViiT3S  + 1 ) + A(  VFiTSB  + 2) 

A(  POS  !< ) - DYNA.i  ( A(  VRT)  , A(  POUR)  , A(  HINT)  ) 

A(  POS3B  ) = DYNA.i  ( A ( VS  3T  ) ,A(  POSS3)  , A ( K I N T ) ) 

R 1 P- A ( P03  R ) *DKGR 
331 P=A ( POSS'3 ) *DKGS3 
A(VFP)  =(  RIP/Gli)  *67.  3*A  ( D K P ) 

A(  VFP+  1 ) - ( 2 . 0*33  I P/GII ) * 6 7 . 3*A<  UKP+ 1 ) 

SPOSIK=KI P-331 P 
SPOS1 L=R1 P + 33  I P 
SP03I  R=SP031  K/Qll 
SPOSI  L=SP03I  L/Gll 
3POSFR-3P031  K~A(  KPDSKP) 

SP03F L=S POS 1 1 A ( RPOSLP) 

STR  = SPOSFK*DFllO 
3TL=S  POSPL*  UKilC 
A ( F3TK)=3TK-Ai:iiOTl 
A ( F3TL)  -3TL-AI-.ROT2 

CALI.  CFKlC  ( A(  FS'i'K  ) , I'i'Rl’,  A(  VRPP)  , A(  VP P ) , A ( FRP+  1 ) , A ( FRPO)  , 

1 FRIO P,  old’,  HI-’P ) 

CALL  C F R I C ( A ( F3T1.)  , l-'FLP,  A(  Vl.PP)  ,A(  VLP)  ,A(FLP+1  ) ,A(  FLPO)  , 

1 PR  I C P , 3 KP,  OFF) 

A ( FRPO) =A( FRP+] ) 

A ( FLPO) =A( FLP+1 ) 

A ( F R P + 1 ) =A  ( FS'i'K  ) — A ( V»P!’)  * ( BP/D  J P ) + F F H P 
A ( FT,  P+1  ) =A  ( FS'l'l, ) - A ( Vl.PP)  * ( ISP/D.JP)  + FFLP 
A( VRPO ) =A ( VRF) 

A ( VI. PO)  -A(  VI. !’) 

A ( VR  P ) = DYN  All  ( A ( FF.P)  , A(  VHP)  , A(  HINT)  ) 

A ( VLP)  = DYN  Ai  i ( A(  FI, I1)  , A(  VI,  P)  , A{  HINT)  ) 

A ( VK  P P ) - 2 . 0 * \ ( VR  P ) ~ A ( VRPO) 

A(  VI, I’!1)  - 2.  0*A(  VI, I’)  A ( VI.Pi  l ) 


o n n n n n n 
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A ( RPl)=A(  RP1  + 1 ) 

A ( RP2 ) =A ( RP2+1 ) 

A ( RP1  + 1 ) =A( VRP)/DJP 
A( RP2+1 ) =A{ VLP)/DJP 
A ( R POSRS) =A( RPOSR ) 

A ( RPOSLS ) = A( RPOSL) 

A ( RPOSR)  =DYN  Ail  ( A { RP 1 ) , A(  RPOSR)  , A(  KINT)  ) 
A(  RPOSL)  =DYNA.-i(  A ( RP2)  , A(  RPOSL)  , A(  KINT)  ) 
A( RFOSRP) =2 . 0* A ( RPOSk) -A(  RPOSRS) 

A( RPOSLP) =2. 0*A( RPOSL) -A ( RPOSLS) 

DT( 1 6 ) = ( A ( R POS  L ) - A ( RPOSR)  )*57.3 

GLAR  EFFICIENCY  CALCULATION 

IIINGL  GLAR  L'FFICILNCY 

TKP=STR/GH 
TLP=STL/GH 

I F ( STR*  A ( VHP) . Gb .0.0)  GO  TO  3410 
TRPii  = T KP/EFFU 
GO  TO  3420 
3410  trpii=th?*i-;fkh 

34  20  I F ( STL*  A ( VL  P)  . Gl. . 0 . 0 ) GO  TO  3430 
TLPII  = TLI’/LFFil 
GO  TO  3440 
3 4 30  TLPII-TLP*  M FFII 

,.,1  XL R GLAR  EFFICIENCY 

3440  TG.4R  -TRPI1  + TLPI1 
TGilSG-TLPH-TRPIl 
Ti4R=  ( TGilK/CiiTIO/OS 
T.4S,J=(TC,.i!’,:j/G,-iS)/nS 

C SU.-L4KU  CLAP  LFFICILNCY 

C 

no  3400  K = 1 , 3 
N A = R — 1 

I r ( Ti  l U*  A ( VGTK+NA)  .GL.  0.0)  GO  TO  3450 
A(TlUfJA ) -T.IR/P-FFG 
GO  TO  3160 

3450  A(TRfUA)  -TrlH*LFFG 
3460  I !■'  ( T.'ISU*  A ( VuTSO  + MA  ) . GH.  0 . 0 ) GO  TO  3470 
A(  TSR+NA)  = T.4S3/EFFG 
GO  TO  3 4 R 0 

147  0 A ( r.;n  + i,|A)  -TiiS,5*hF'-’G 

3450  C OUT  1 GUI : 

3 4 0 0 CONTINUE 

DT(  ^ ) - A ( RPOSR)  *57.3 
IV,’ ( >1  ) -- A ( RPOSL)  *57.3 
0 T ( 1 0)  - A(  V-’P) 


6.107-24 


6.107.7 


(Continued) 


OT(  11)  =A { Vt' P + 1 ) 

DT( 12) =A ( VRT+ 1 ) * 6 0 . / ( 2. *3. 14159) 
OT{  13)=A(VS!5T  + 1 )*6  0./(  2.*  3.  14159) 
UL-TUUN 
lND 
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7.0  OUTPUT  SUBROUTINES 


The  output  subroutines  comprising,  store,  graph  and  scaled  are  currently 
dedicated  to  producing  print  plots  of  the  data  calculated  by  the  program. 

Current  options  allow  maximum  or  minimum  calculated  values  to  be  substi- 
tuted for  plot  values  in  event  these  max  or  min  values  occurred  between 
plot  intervals.  This  assures  that  the  max  or  min  values  calculated  are 
reflected  in  the  output  plots.  Another  option  allows  tabulation  of  all 
calculated  values  for  each  plot  variable. 
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7.1  SUBROUTINE  STORE 


Subroutine  STORE,  which  is  called  by  HYTR,  reads  output  requirements 
and  stores  data  required  for  output  plots. 

/ . 1 . 1 Math  Model 

Not  applicable. 

7.1.2  Assumptions 
Not  applicable. 

7.1.3  Computation  Methods 
Section  1000 

Section  1000  reads  in  all  the  plot  information  for  line  and  component 
plots . 

Section  2000 

This  section  first  performs  a test  to  determine  if  the  current  time 
step  is  also  a plot  time,  if  so  line  or  component  data  is  stored.  If  it  is 
not  time  to  store  but  the  MAX/MIN  option  has  been  exercised,  tests  are  made 
to  determine  if  the  current  calculated  value  is  less  than  or  greater  than 
(depending  on  which  option  was  exercised)  the  previous  value  stored,  if  so 
the  stored  value  is  replaced  by  the  current  calculated  value.  If  the  LIST 
option  has  been  exercised  every  calculated  plot  variable  is  printed.  Once  all 
or  a max  of  101  points  have  been  stored,  GRAPH  is  called  to  plot  the  points. 

A test  is  then  performed  to  determine  if  more  than  101  points  are  to  be 
plotted,  if  so  the  additional  points  (up  to  101)  are  calculated  and  stored  as 
before.  GRAPH  is  again  called  to  plot  these  points.  This  procedures  is 
repeated  until  all  points  have  been  plotted. 
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7.1.4  Approximations 


Not  applicable. 

7.1.5  Limitations 
Not  applicable. 

7.1.6  Variable  Name 
Variable 

I 

INDEX 

IPLT 

IPTS 

J 

LIST 

LPT 

M 

MXTREM 

N 

NABSQ 

N1STKP 

NLPLTC 

NOG RAF 

NOMSG 

NO STOP 

NPT 

NXTREM 


Description 

Counter 

Line  Number  Associated  with  Pressure  and/or 
Flow  Plots 

Number  of  Plots 
Required  along  Line  INDEX 

Dummy  Variable 

Counter 

Input  Integer  Value  0 (No  List)  of  1 (List 
of  all  Points) 

Distance  in  DELX's,  of  Required  Plots  from 
Upstream  End  of  Line 

Counter 

Dummy  Variable 
Counter 
Not  Used 
Counter 

Number  of  Line  Plot  Points 

Not  Used 

Not  Used 

Not  Used 

Dummy  Variable 

Input  Integer  Value  0 (Normal  Plot), 

+1  (Plot  with  Max  Values)  or  -1  (Plot 
with  Min  Values) 


Unite 
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7.1,6  (Continued) 
Variable 
N1 
Y 

YY(  ) 


Description 

Counter 

Dunmiy  Variable 

Array  Used  to  Store  Line  Positions  of 
Required  Plots 


Units 
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7.1.7  Subroutine  Listing 


/ 

/ 


SUBROUTINE  STORE 

C****  REVISED  AUGUST  5,  1975  **** 

DOUBLE  PRECISION  DD 

COi'i.'iOH  UTELPL,UTOL?L,  IP?,  I POINT, NPTS , IUEL,  KLJEL, MTOPL, NLPLT(  61,3), 

1 VS TORE ( 1 ) 

C0a.l0i'!/«SU3/ PAR.i(  150,9)  ,P,i(  1500)  ,<V,(  1590)  ,P(  300)  ,0(  300)  , C ( 3 00) 

1,2(  300)  ,?HO(  20)  , S 20.RHO{  20)  ,VISC(  20)  ,BIJLX(  20)  ,TLE?(  20)  , PVA P(  20} 

2 , ATPR ES , T,  DLL?, TP INAL,  PLTDLL,  PI , TITLE ( 20)  , LEG  1! , I C O R 
3 , XT E.-i P ( 9 9 ) ,LSTART(  150)  f>JLPT(  150)  ,L?YPe(99)  ,KC(  99  ) , INX,  INZ 

4 , I XV , I STEP,  N L I N R , • J L L , I S D , I E ? 1TR , A 1-3 LINE , a N E L , h N LEG,  A N N O O E , ;-:N PLOT 

5 , .:M  LPTS , aDS 

m •iii'JSION  YY( 1 0 ) ,00(  1400)  , ITITLIi(  40)  , IN ( 40)  , IY( 40 ) , I IC  ( 40)  , IC(  40)  , 
lITTITLf. ( 40)  , ICHAR(O) 

COiEiOKVCO,iPD/r'(  4 500)  ,L(  1500)  ,Lr,(99,4) 

E 0 U I VA  L £ \’  C E ( D 0 ( 1 ) ,0(1)) 

DATA  ICGAR/ 4 f] LINE,  4MDIST,  4/!CO;;R,  4I1VAR  , 2i;iT,2H  P,2H  D,2K  / 
IF(I.\A’?9)  1009,  1003,2000 
1000  CONTINUE 
IPT®  0 
OIS?iiP®0 
I PTS  = '-PTS 

IP(N PT S . GT .101)  • ’ PT S = 101 
C 

NTOL?L=9 

R C A D ( 5 , 2 7 0 ) N L P LTC  , >M T c L ? L,U XT R La , L I S 7 , X OS  TO P , X 0. i 5 G , ,J OGUAF , X A 3 3 0 
IP( NLPLTC.EO.O)  3D  TO  142 
no  110  1=1 , XL? LTC 

Rt.AO(  5,329)  INDEX,  IPLT,(YY(..)  ,.i=l,IPLT) 

DO  130  i i = 1 , 1 P L7 
■J=l 

IF(YY(.-.)  .LT.0.0)  J=-l 

LPT®  ( YY(  X)  *7/  ?\Ra ( I MDLX , 5 ) +0.5) 

I F ( L FT  .Gt.  ’I  L PT  ( I OR  6 X ) ) L PT  = M L PT  ( I N Dr.  X ) - 1 
NTOL?L«STOL?L+1 
! I L F L’i’  ( liTOL  ?L , 2 ) = ID  DUX 
a L F L 7 ( S T 0 L P L , 3 ) = LPT 

■■JLPLT(  XTOLFL,  1 ) = ( L ST  APT  ( I IDEM)  +LPT)  *J 
130  CONTINUE 
1-10  CONTINUE 
142  CONTINUE 

N T C P L=  i ; T 0 L FL+Ij?  r,  L PL 
T F ( : 1TOL  PL . GT . ON  PLOT ) NTOLPL=.«X  PLOT 
r 

I F ( '■! T t L P L . E C> . 0 ) GO  TO  144 

Rt.AO(  5,270)  ( ( ;-ILPLT(  I+OTOLPL,  2)  , NLPLT(  I+UTOLPL,  3)  ) , 1 = 1 , ETELPL) 

144  CONTINUE 

I P ( TO L ? L+ n T e L PL . G T . a 1 P LOT ) STELPL=. SJ  PLOT-NTOLPL 
IF  ( MTOLPL+UTl-LPL.  PE.  JTOPL)  wRITE(  5,520) 

XT0PL="T0L?L+:3Ti:.LoL 

IF ( TTE LDL. LO. 0 ) CO  TO  1250 


F\T  47/.::  ■ :r  ” cm 


\J>j  a I 
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7.1.7  (Continued) 


LPT=NT0LPL+1 
DO  1200  I=LPT, NTOPL 
MPT=MLPLT( 1,2) 

N =NLPLT{ 1,3) 

I F ( N ) 1150, 1100, 1160 
1150  N1"-LE(NPT, 3)+K+l 
GO  TO  1170 

1160  N1=LE(NPT, 2)+«-l 
1170  MLPLT( I , 1)-Nl 
GO  TO  1200 
1130  ;!LPLT(  1 , 1 ) = 1 
1200  COWTIWUE 
C 

WRITE ( 6 , 1601) 

WRITE ( 6, 1603) 

IF ( NXTRE.i)  5,12,10 
5 'WRITE ( 6,1506) 

GO  TO  1220 
10  WRITE (6,1507) 

GO  TO  1220 
12  WRITE ( 6,1503) 

GO  TO  1220 
1220  WRITE ( 6, 1603) 

1250  .7  7=0 

II«NTQPL 
DO  1300  1=1,11 
.7  = 1 

7-7= J J+l 

15  lIl=WLPLT(  1,1) 

N PT=WLPLT{ 1,2) 

M=MLPLT( 1,3) 

IF( I.GT.WTOLPL)  GO  TO  2500 
ITITLE ( 7 7 ) = ICtlAR ( 1 ) 

IH(  J.7)="JPT 
IY(.7J)«M*PAR»:(KPT,  5) 

I ITITLE  (3.7)  =IClIAR(  2 ) 

WI  = 0 

IP(Nl.LT.O)  WI=1 
IC( J.7)  = ICriAR( 6+NI) 

IIC( JJ)=ICHAR( 5) 

GO  TO  1700 

2500  ITITLE  ( J J ) = ICHJ\R  ( 3 ) 

I ITITLE  ( JJ)  = ICHAR(  ',) 

IW(  .7  7)  =*IPT 

IY(  J J)  =iJ 

IC( JJ)=ICHAR(0) 

I IC  ( .7.7 ) = ICH.M3(  8 ) 

1700  IF{  JJ.  LT.  10.  ArlD.  I . LT.NTOPL)  GO  TO  1300 
III=I-JJ+1 

WRITE { 6 , 1500)  ( ( JJJ)  ,JJJ=III,J) 
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75 

15 

1300 

2000 


2005 

2010 


IF(I.GT.NTOLPL)  GO  TO  75 

WRITE ( 6, 15  00)  { ( ITITLfc(-JJJ)  , IK (JJJ)  ,IC(  JJJ)  ) , JJJ=1,  JJ) 
WRITE ( 5 , 1500)  ( ( IITITL£( JJJ) ,IY(JJJ) ,IIC( JJJ) ) ,JJJ=1,JJ) 
GO  TO  15 


WRITE ( 5, 1504)  ( ( ITITLBf JJJ) ,IO (JJJ) ,IC( JJJ) ) , JJJ=1, JJ) 
WRITE ( 5,1504)  ( ( I ITITLE ( JJJ ) ,IY(JJJ) ,IIC( JJJ) ) ,JJJ=1,JJ) 
WRITE (5,1505) 

7 J=0 

CONTINUE 
WRITE  ( 6 , 1502) 

WRITE ( 5, 1503) 

.COVTII'JUI: 


IF ( I STEP. EQ. N I GTE  P)  GO  TO  2010 
IF  ( NXTREw . GO.  0 . VMD.LIST.DQ.  0 ) RETURN’ 
L i X?  RIG  i =N  XT.R  L.*i 
GO  TO  2020 

>J  I S TD  P= U I $ T E ?- 1 PC  I TT 
Li  XT  1F.:1=0 

IPT=IPT+1 


M I S ?L  ?= I ‘3  TLP+I PO I ■ 3? 

VO  TOP  E ( I PT ) =T 
2020  GPT=I PT 
M1  = 0 

DO  2200  1 = 1 , N’TOPL 
•!  DT=  JPT+'r’PT3 
]="  LPLT  ( 1,1) 

IF(I.GT.MTOLPL)  GO  TO  2050 
IF(fJ)  2030,2150,2010 

20  3 0 Y = '',■)(  - N!) 

GO  TO  2030 
2 04  0 Y=?.i(N) 

GO  TO  20  RO 

2050  I F ( J ) 2050, 2150, 2070 
2050  Y=00(-U) 

GO  TO  2000 
207  0 Y=  0 ( X ) 

2030  IF(;.XTRLr.i)  20P0,  2005, 21  00 
203  5 IF  ( I STL  P+ 1 POUT.  F.O.  FISTE  P)  GO  TO  2110 
GO  TO  2120 

200  0 ir(V5TORc,(  JPT)  .GT.Y)  GO  TO  2.110 
GO  TO  2120 

21  no  I F ( VG TOP. L ( J PT ) . G L . Y ) GO  TO  2120 
2110  V 3 TOR  L ( J PT ) = Y 

2120  TF(LIST.CF.O)  GO  TO  2200 

IF(I.EF!.l)  vvRITL.  ( 5, 2211 ) T 
2130  >11*31  + 1 
YY(G1)=Y 

IF ( W1.NL, 10)  GO  TO  2200 
WRITE  (5,2210)  YY 


'i  v i 


k tl  'd.-juJ  li  ujf  dm 
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7.1.7  (Continued) 


N 1 = 0 

GO  TO  2200 
2150  WPITL(6, 2220)  I 
Y=7 

GO  TO  2000 
2200  CONTINUE 

C IF ( i'Nl*LI3T.  UC . 0 ) ViRITE  ( 5 , 221 0 ) ( YY(  I ) , 1 = 1 , Nl ) 

IP( IPT* V E.NPTS)  R ETU R N 
ISV=>1A?.SP 
CALL  GRAPH 

IF( IPTS-NPTS)  2300,2350,2310 
2300  G?TG=IPTS 
I ?T=  0 

GO  TO  2005 
2310  G?TS=101 

I PT3=I P73-1 00 
IPT=0 

GO  70  2005 
2350  COMTIilUf 


27  0 FORMAT  ( 1515) 

320  FORG AT  ( 215, 7 F 10.0) 

520  P0R.iA7(  5-*,  4 2HTOO  ..ANY  PLOT-;  REQUESTED  GAG  NU..3&R  13  60  ) 

2210  FORD AT { 5 X , 1 0 E 1 2 . 5 ) 

2211  r C ?. ; AT ( 5 X , 2 5 H DA 7 A C A LC fj L A T i:. O AT  7 1 3 C «,F3.4) 

2220  FORMAT ( 2:»,  45HVALUE  Of  K Itf  2000  SECTION  OF  CO.;?  IS  ZERO  1=  ,15) 

1 500  FOP.iAT(  5X,  10(  OOGRAPH  ,14, 2U  )) 

1500  FOR. . AT ( 5 X , 1 0 ( A 4 , 1 4 , A 2 , 2 H )) 

1501  FOR.'iAT(  1 r i 1 , 4 27,  35flVAEIA3LE3  SELECTED  FOP.  OUTPUT  PLOTS) 

1502  F 0 R. i AT ( 1H1 , 53X, 13HHYTRAN  OUTPUT) 


15  03  FOR.-i AT ( lit 0 ) 

1504  FOP.JAT(  5 X , 1 0 ( A4,IS,A2)  ) 

1 505  PDFS  AT ( 1H  ) 

15  05  FOR. i Vr(  2PX , 7 1 HVALULS  PLOTTED  SfcPPDSL'lT 
1' I THE  7 1 Sri  INTERVAL) 

1507  F O P . ! A 7 ( 2 °> V , 7 1 .-! V A L U E G PLOTTED  REPRESENT 
2M  T M L TI.1L  INTERVAL) 

1500  FOR.iAT(  2 IX,  7 5HVALULS  P LOTTE  O RE PR SSL NT 
3D  AT  EACH  PLOT  INTERVAL) 

El-’D 


•ilNIilU.'i  VALUES  CALCULATED  I 
iiAXI.i UG  VALUES  CALCULATED  I 
T'lh  ACTUAL  VALUES  CALCULATE, 


e s hj> 
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7.2  SUBROUTINE  GRAPH 


Subroutine  graph  produces  print  plots  of  the  output  data  stored  in 
VSTORE  ( ) . 

Most  computers  will  have  their  own.  version  of  this  subroutine  which 
could  be  used  if  necessary.  However,  since  the  plotted  output  is  such  an 
integral  part  of  HYTRAN,  this  subroutine  has  been  added  to  avoid  the  problems 
involved  in  changing  from  one  computer  to  another. 

7.2.1  Theory  - Not  applicable. 

7.2.2  As sump tlons  - Not  applicable. 

7.2.3  Limitations 

The  program  is  executed  onc.e  for  each  plot, up  to  the  total  number  ol 
plots  NTOPL.  The  UO  901  J = 1,  NT0P1.  controls  this  loop. 

The  first  section  which  sets  the  X scale,  is  only  executed  on  the  lirst 
pass,  when  J = 1. 

The  program  currently  uses  TIME  (1)  as  XM1N  ;md  TIME  (NPTS)  as  XMAX. 

In  the  second  section  a 1)0  loop  is  used  to  find  the  maximum  and  minimum 
values  of  the  Y data  to  be  plotted,  using  the  functions  AMAX1  (YMAY , VSTORE, 
(L+LADD) ) and  AM1N1  (YM1N,  VSTORE  (1+1 ADD) ) • 

With  the  maximum  and  minimum  values  established,  a check  is  made  to 
see  if  they  are  equal,  if  they  are,  25  is  added  to  ^MAX,  and  YM1N  is  set  aL 
50  less  than  that,  to  avoid  a fruitless  search  tor  a suitable  seaLe, 

Subroutine  SCALED  is  then  called  to  obtain  a preferred  scale  for  the 
Y axis,  and  returns  with  values  for  YMAX  and  YMIN. 
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The  next  section  find.;  the  type  of  plot  and  sets  the  plot  character, 

V,  Q or  C and  the  data  to  be  written  at  the  bottom  of  the  output  plot. 

The  routine  then  starts  the  output  plot  section  by  going  to  the  top  of 
a new  page,  and  proceeds  to  plot  the  output  data,  line  by  line  until  the  plot 
is  complete.  A more  detailed  explanation  of  this  section  will  be  added  at 
a later  date. 

At  the  bottom  of  the  plot  a descriptive  line  is  written  which  gives  the 
line  number  and  distance  along  the  line  for  line  pressure  or  flow  plots  or 
the  variable  number  and  the  component  number  if  it  is  a component  data  plot. 

The  next  printed  line  is  the  title  of  the  run,  which  was  inputted  on 
the  first  data  card. 

When  all  the  plots  have  been  completed  program  control  returns  to  HYTR. 
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7.2.4  Approximations  - Not  applicable. 

7.2.5  Limitations 

The  basic  limitation  o)'  a print  plot  iu  the  number  of  pointB  that  can 
be  plotted  on  a single  page  graph  and  the  resulting  inaccuracy  in  reading 
the  graph.  To  an  extent  these  limitations  can  beovercome  by  use  of  the 
MAX/M1N  and  LIST  options  noted  in  Section  2.4  of  Volume  T of  this  report. 

7.2.6  Variable  Names 


Variable 

AVS 

LIST 

1 

1ADD 
1C11AR 
1CHAK ( ) 
ISP 

ISl’ACK  ( ) 

1T11ST 

J 

L 

LINE 

NABSQ 

NCUAK 

NVAR 

SP 


Description 
Absolute  value  of  VS 
Distance  of  Plot  Point  Down  a Line 
Counter 

Address  J*N1‘TS 
Plot  character 

X and  Y Axis  Write  Characters 
Counter 

Temporary  Variable  lor  Writing  X and  Y Axis 
Scales 

Counter 

Counter  Indicating  Plot  Number 
Dummy  Variable 

Integer  Counter  lor  Plot  Line  Number 

Integer  value  1 or  0 
Used  as  Indicator 

Dummy  Variable  Representing  Plot  Character 

Dummy  Variable  Representing  Point  at  which 
Line  Plot  is  taken  or  Component  Number 

Column  Number  Nearest  to  the.  1th  Value  of 
X-Var iable 


Units 


IN 


V". 


Dummy  Variable 
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Variable 


Units 


XAX 

XDELTA 

XMAX 

XMIN 

XSCALE 

Y 

YDELTA 

YLAST 

YLO 

YMAX 

YMIN 

YUF 


Deacrlptlon 

Temporary  Variable  for  Writing  X Axis 
Scale  Values 

Distance  Between  Stored  Points  on 
X Axis 

Last  (Largest)  X Axis  Value 
First  (Lowest)  X Axis  Value 
X Scale  Range 

Temporary  Variable  (Y  Axis  Scale  Value) 

Distance  Between  Stored  Points  on  the  Y Axis 

Last  Y Axis  Scale  Value 

Lowest  Value  in  Search  Range 

Maximum  Value  to  be  Plotted 

Minimum  Value  to  be  Plotted 

Highest.  Value  in  Search  Range 
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1 

J 


i 


4 


7.2.7  Subroutine.  Listing 


SU3  POUT  I .'i L GP.A  PI) 

C*  * * * RLVISLD  AUGUST  5,  1975  **** 

COILION  MTLLPL,  NTOLPL,  I PT , I POINT,  NPT3,  1NKL,  KN E L,  NTOPL,  N LPLT{  6 1 , 3)  , 
1 VS  TOR  t.  ( 1 ) 

C Oil  AON/ SU'D/ PAR,!  ( 1511,9)  ,P.i(  1500)  ,QH(  1500)  ,P(  300)  ,0(  300)  ,C(  300) 

1,  Z(  300)  ,RHO(  20)  , 3 ?.l)RUO\  20)  ,VI3C(  20)  , UULX(  20)  ,TL.-1P(  20)  ,PVAP(  20) 

2 , ATPKL-.3  , T , OLLT , TF I UAL,  PLTDLL,  PI , TITLL  ( 20)  , LLGN,  ICOU 

3, KTfc>IP(  90)  , LST  A RT ( 150)  ,NLPT(  .150)  ,LTYPb(99)  ,NC{99)  , INX.1MZ 

4 , tUV,  I STLP,  ULINF,  Ml.L,  I MU,  I fcNTR,  HULINL! , I-INLL,  KN  Lfc.G,  FiNNODb,  i4ll PLOT 

5 , .'1MLPTG  , -IDG 

DI.-llJNS ION  1SPAC1;(  101),  XAX( ft)  , ICHART(  0 ) 

DATA  IClIART/l.lO,  IMP,  IRC,  1HI,  1H-,  1.1+,  111  ,1U*/ 

DATA  ITL.ST, XSCALU/0, 0. 0/ 

C DCGli'l  OUT  SR  LOO13,  FIND  X PARA.-ihTKRS  ON  FIRST  PASS  ONLY 

1 UO  901  0=1,  NTOPL 
IAnD=0*MPT5 

IF ( 0 . ML. 1 ) GO  TO  2 
X.-l  AX  = VS'L’ORL.  ( N PTS  ) 

X. lIN=VSVORb(  1 } 

IT LST-  IT  LST 4- 1 

lb* { ITtST.Nh.  1 ) Xi4AX  = Xii l N 4- X SC  ALL. 

XGCALl  aXMAX-X.-l  1 U 
C CALL  GCALhO{  X.'iAX,  X/.IN) 

XDl:.LTA=(  U,AX-XML'J)/n0. 

C FIND  Y PA RA; il.Ti: KG 

2 Y.4AX*»V3TOKt.(  1 + F.M)')) 

Yrl  1 M = YO  AX 

DO  '10  2 1 = 2,  M PTS 

YU  AX  = A.  IAX1  ( Y.'lAX , VSTOilL  ( 1 + 1ADO)  ) 

902  Y-il  M = A.  i INI  ( YU  I N , VS  TORI.  ( 14-LAUD)  ) 

NA3SO-0 

I F ( .1 , GT . NTOLPI.,  OR , A1  LI’LT ( 1 , ] ) . Gh . 0 ) GO  TO  905 
IP  ( INV.  1,0.  0)  GO  TO  905 
IF(  Y.'ilM.GT.O)  GO  TO  9 05 
NAGS U=1 

1 1' ( A S S ( Y.-i  1 \ ) .GT.  Y.1AX)  YNAX=  ASS  ( YN1N) 

905  I F ( Yi tAX  . N 1 . Y.  1 1 l)GO  VO  9020 

Y. iAX  = Y 1A.X  4 25. 

Y.i I N = Y. i. A X - 50. 

GO  TO  9025 

9020  A , 1 A X = ( Y.1AX4-Y..T  4)  * .001 

IF(  ( Y iAX-Y.UM)  .GT.A.iAX)  GO  TO  5025 
Y.'lAX  --  Y.1AX4  A.-1AX 
YU  114  = Y.I  IN- ASA  X 
9025  CALL  SCAL1.d(  Y.-.AX  , Y.i  1 <) 

Y DL.  LT  A = ( Y . i A X-  V ! . 1 N ) / 5 0 . 

C PI  MO  L l XL. /CO, -l  POLL  NT  'JU.-NU.K,  TYPli  OF  PLOT,  OUTPUT  DATA 

L=M  LPLT ( 1,2) 

IV  ( .7.  GT.  UTOLIM.)  Go  l'<)  5 
Ip(  NliPLT(  1,1))  3,5,4 
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7.2.7  (Continued) 

3 ICHAR--ICH.\RT(  1) 

DIST=N  LPLT ( J , 3 ) * PARm ( L, 5) 

GO  TO  fi 

4 IC(1AR=ICHART(  2) 

DI5T=NLPLT  ( J , 3)  *PAR.1(  L,  5) 

GO  TO  5 

5 ICHAR-ICHART(  3) 

NVAR=NLPLT(  0,3) 

C GO  TO  TOP  OP  NEXT  PAGE 

<S  WRITE ( 6, 601) 

C LOOP  FOR  LAC  11  PLOT  LI  Nil, 

Y=Y.iAX  + Y DELTA 
7 DO  007  LIMt=l,  51 
YLAST- Y 
Y=Y-YDLLTA 
YUP=Y +YDLLTA/ 2 . 

YLQ=Y-YOELTA/2. 

C FIRST  + LAST  CHAR.  ON  LIN b = *1* 

IS  PACL  ( 1 ) = IC11ART(  4) 

1 S PACL ( 101) = IC  HART ( 4 ) 

C FIRST  + LAST  LINES  ALL  *-*,  LXCLPT  * + * IN  1 1 , 2 1 , 3 1 , 4 1 , . . . , 8 1 , +9  1 

IF(  L1NL.  \’U.  1 .AND.  LINL.NL.  51 ) GO  TO  11 
9 no  909  I3P=2 , 100 

IF( ( IS P-1) .LO.( IS P-1 )/10* 1 0) GO  TO  10 
13PACI.:(  1SP)--ICHART(  5 ) 

GO  TO  909 

10  IS  PACL  ( ISP)  = 1C1IART(  0) 

9 09  CONTI  MOL 

GO  TO  14 

C 1 N IT  I M 2 h COL.  2-100  ON  LINES  2-50  TO  * *,  OR  * + +.-*  XF  AXIS 

11  I F ( Y . LL . 0 . . AND. YLAST. GT. U . ) GO  TO  13 

12  DO  912  ISP=2,  100 

0 1 2 IS PACE ( ISP) -ICHARTf 7 ) 

GO  TO  1 4 

13  DO  913  1 3 P=  2 , 19  0 

1 S PACL  { I S P ) =- 1 CHART ( 5 ) 

917  I F ( ( IS  P-1  ) . 1.0.  ( I SP-1  ) /I  0*  10)  13PACE(  IS  P ) = IC  11  ART  ( 6 ) 

C SEARCH  Y-VALllE  ARRAY  FOR  THOSE  IN  RANGE  YLO.  I.T.  VALUE . GE . YUP 

14  '70  9 1-i  1 = 1,  NPTS 
VS=VSTORL( I+1AOO) 

NCHA  R=  IC  ilA  R 

I F ( VS  . GT.  Y1.0  .AND.  VS  . LE.  YUP)  GO  TO  145 
I F ( NASSQ.NL. 1 ) GO  TO  9 1 4 
A VS = ADS ( VS ) 

I F ( AVS . LT. YLO.OR. AVS . GT. YUP)  GO  TO  914 
MCI]  A 11=  1C II ART ( 3 ) 

C FIND  COLIIilN  NUN SEN  NLA REST  TO  I-TH  VALUE  OF  X-VARI ABLE  WHEN  SCALED 

145  S P- ( VS TOR  E ( l ) -XN I N ) /XDL  LTA  + 1 

IF( SP-AINT(SP) .GT. 0. 50)  3P=3P  + 0.50 
I S P = S P 
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i! 


C CHECK  ISP.  IP  LT  0 OR  GT  102,  ERROR ; It'  0,  ADD  1;  IP  102,  SUF1T.  1 

IF(ISP)  914,  15,  16 
15  ISP=1 
GO  TO  la 

15  I P ( I SP- 1 02 ) 15,17,914 
17  ISP=1 91 

13  ISPACE!  ISP)=NCl)AR 
914  CONTINUE 

LINES  1,11,21, 31, 4.1,  +51  HAVE  Y- VALUES;  THESE  LINES , PLUS  LINES  6, 
16,26,...  ALSO  HAVE  * + * IN  COL.  1 + 101  IF  EMPTY 
IF( (LINE-1) .NL.( LINE-l)/5*5)GO  TO  19 
IF { I SPACE ( 1 ) .NE.ICHAR)  ISPACL ( 1 ) =ICHART( 6 ) 

IF ( I SPACE ( 101). NE.ICHAR) ISPACE( 1 0 1 ) =ICHART ( 6 ) 

IF(  ( LINE-1) . N E . ( LINE-l )/10*10) GO  TO  19 

C WRITE  OUT  PLOT  LINE,  CONTINUE 

WRITE( 6,602) Y,  IS PACE 
GO  TO  997 

19  WRITE( 6, 601) T SPACE 
907  CONTINUE 

C CALCULATE  + PRINT  X-AXIS  VALULS 

20  DO  920  1=1,  6 

920  XAX(I)=X.4IN  + ( I - 1 ) * 2 0 . * XDHLTA 
WRITE!  6,604)  XAX 

C WRITE  LOWER  TITLES  + VALUES,  RE-ENTER  OUTER  LOOP 

IF  ( J.GT.NTOLPL)  GO  TO  23 
IF ( N LPLT( J , 1 ) ) 21, 23, 2 2 

21  WHITE! 6,605)  J,OIST,L 
GO  TO  999 

22  WHITE!  6,606)  J,DIST,L 
GO  TO  900 

23  WHITE(  6, 607)  J,NVAR,L 
900  CONTINUE 

WPITL(  6,603  ) TIT  Id. 

90]  CONTINUE 
1000  WRITE! 6,601) 

WRITE! 6, 610) 

WRITE! 6, fill) 

IF{ T.LT.TPINAL-DEET) RETURN 
no  1250  J = 1 , NTOPL 
L=NLPLT{ J , 2 ) 

IF( J.GT.NTOLPL)  GO  TO  59 
DIST=M LPLT ( J , 3) *PARW( L, 5) 

IF(  NLl’LT!  J , 1 ) ) 25,  1250,  30 
25  WRITE! 6, 605)  J,DIST,L 
GO  TO  1250 

30  WRITE! 6, 606)  J , DIST, L 
GO  TO  1250 
50  NVAR=NLPLT[ J , 3) 

WRITE!  6,607)  J,NVAR,L 
1250  CONTINUE 


I 


J d 
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7.2.7  (Continued) 


601  FORMAT ( 1H1) 

602  FORMAT ( IX, 15X,F12. 4, IX, 101A1) 

603  FORMAT ( IX, 28X, 101A1) 

604  FORMAT ( IX, 2 3X, 5 ( F9 . 3 , 1 IX ) ,F9. 3) 

605  FORMAT  ( IX,  28X,  6HGRAPH  ,I3,1X,53H  FLOW  (CO. IN/SEC)  VO.  Tint  (SEC.) 
+ FOR  A DISTANCE  OF  ,F8. 2,26(1  INCHES  ALONG  LINE  NUMBER  ,15) 

606  FORMAT( IX, 28X, 6HGRAPH  ,I3,1X,53H  PRESSURE  (PSIA)  VS.  TIME  (SEC). 
+FOR  A DISTANCE  OF  ,F8.2,26fI  INCHES  ALONG  LINE  NUMBER  ,15) 

607  FORMAT ( IX, 2SX, 6HGRAPH  , I3,1X,18H  VARIABLE  NUM3ER  , I3,21H  OF  COMPO 

+NENT  NUMBER  ,I3,38H  VS.  TIME  (SEC.).  THE  VARIABLE  IS  ) 

608  FORMAT( 1 X, 28X , 20A4 ) 

610  FORMAT (1H0,65X,  2 7 HU YT RAN  PROGRAM  OUTPUT  PLOTS) 

611  FORM  AT  QUO) 

RETURN 

END 
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7.3  SUBROUTINE  SCALED 

The  subroutine  SCALED  is  used  by  GRAPH  to  obtain  a preferred  scale  for 
the  X and  Y axis  of  the  print  plot  graphs. 

The  number  of  divisions  oil  the  X axis  = IDO  and  the  number  of  divisions 
on  the  Y axis  = 50,  a preferred  scale  system  was  chosen  which  would  give  a 
difference  between  RMAX  and  RMIN  of  either  1.0*10**N,  2 .0*10**N  or 
5.0*10**N  where  N can  be  +ve  or  -ve . 

The  graph  data  MAX  and  MIN  is  centered  between  UMAX  and  RMIN  unless 
either  RMAX  or  RMIN  can  be  set  to  zero. 

An  overriding  requirement  is  that  the  scales  should  be  at  some  reasonable 
lumber  for  easy  reading  hence  with  a range  of  5000,  the  MIN  can  be  set  at 
intervals  of  500,  or  range/10.  This  sometimes  leads  to  a larger  scale  being 
used  than  would  expected  from  the  actual  range. 

The  goal  however  was  graphical  readability  and  scalability  without 
the  need  to  resort  to  a calculator  to  find  the  value  of  a potnL,  and  in 
meeting  this  goal  we  have  payed  some  penalty  in  the  ;>i?.e  of  the  actual  graph. 

7.3.1  Theory  Not  applicable. 

7.3.2  Assumptions  ~ Not  applicable. 

7.3.3  Computation  - To  be  added  later. 

7.3.4  Approximapf nn  - Not  applicable. 

7.3.5  Limitations 

In  its  present  form  SCALED  gives  Inconsistent  answers  for  small  values 
of  RMAX  and  PM1N,  and  .is  not  currently  used  to  scale  the  X axis. 
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NAME 


DESCRIPTION 


AMAX 

AMIN 

IBOT 

IKMAX 

I EXP 


1TOP 

J 

MANT 

RANCH 
RMAX 
RMIN 
SCALE (-) 


Maximum  value  to  be  plotted 

Minimum  value  to  be  plotted 

Variable  used  to  calculated  Y axis 
scale  values. 

Variable  used  to  calculate  Y axis 
scale  values 

Variable  used  to  calculate  Y axis 
scale  values 

Variable  used  to  calculate  Y axis 
scale  values 

Integer  counter 

Variable  used  to  calculate  Y axis 
scale  values 

Range  oL'  values  t:o  be  plotted 
Maximum  Y axis  scale  value 
Minimum  Y axis  scale  value 
Scale  factors  for  Y axis 


DIMENSION 
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n n r:  n n o o o n 
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Sub  rout  ir/c  Lis  Lins 


SUB ROUT I NL  SCALLD(  R.l.VX , Ri-lT  N ) 

DIMENSION  SCALING  ) 

DATA  SC. A LI./  . 5 , 1.,  2. ,5. ,10. ,20./ 

FIND  Till.  RANGE  OF  VALUES  * RANGE* , AND  FLACK  ACTUAL  SAX  AMD  .mIN 
PO I UTS  IX  *A,iAX*  AND  *A.1TN* 


R AN  GL  = Ri  lAX-U.  1 1 N 
AHA X= UMAX 


A.'i  I I = H 1 1 1 i 

FIND  AN  INTEGER  E X nON  K N'T  *IEXPA  AND  BASE  * BANT*  SUCH  THAT  THE 
■VALUE  OF  .lANT*  * T uXP  IS  .Oh.  RANGE 


IEXP=ALOG10( KANGl , ) 

.•IANT=WANGL/in.**I  l.XF 

IF  ( RANG!..  C.T.  .’.ANT*  I 0 . * * I LXP)  ,|ANT=;1ANT+1 

USING  BANT , SELECT  ONE  OF  THE  PKLFLKREO  SCALES 

IF(  ilANT.GT.  10)  GO  TO  70 
I F(  ilATf  . LT.  1 ) GO  TO  7 0 

GO  TO( 30, 90, 100, 100, 100, 1 10, 1 10, 1 1 0, 1 1 0, 70) , MAN 7 
7 0 ;-.A\lT=l 

tl;xp=iexp+1 
00  J = 2 

GO  TO  L 20 
00  ,1  = 3 

GO  TO  120 


100  J=4 

GO  TO  120 
110  H ~-5 

SET  * I.  in  iAX  * 1,01 1 A L TO  THE  EXPONENT’  OF  10.  COk'XI.S  PON  01  JO  TO  K.lAX 

120  IF(  K.iAX.EO.O.  ) GO  TO  121 
I Ei  i AX --A LOG!  0 ( MT(  R.-iAX)  ) 

MSI  A.iAX  AND  IE  MAX  T’O  FIND  A POSSIBLE  MAXIMUS  VALUL  FOK  Till, 

SCALE.  PLACE  T‘IE  VALUE  In  U.tAX,  AND  CO  1 PA  RE  WITH  TUI'  ACTUAL 

. lAXIriU.-i  POINT. 

r.i\x=in7(  a us  ( a.:ax)/i  o.-*  *ii.,-iax)  * i o.**il.,ax*sign(  i . o,  am  ax) 

121  1 F ( UMAX  . Gl . . Arl  AX ) GO  TO  130 

C IF  UMAX  IS  . LT.  ACTUAL  MAX  POINT,  INCREASE  IT  TY  •> 

C PLUCEHT  AND  RICH  EC  VI  — I'  l.  PEAT  AS  NECESSARY 

l!i  lAX=K.lAX+.  0S*SC  Al,l.(  J ) * 1 3.  * * I EXP 
GO  TO  1 2 1 

C SET  TUI  SCALE'S  ,11'll-Ul.i  BY  SUBTRACTING  SCALE  ( J ) **  I l.XP  FROM  UMAX 

C IF  THE  ACTUAL  Ml  JIM1), l *A.'I\i*  LIES  wlTlIN  THE  RANGE  NOW  DE  F T N I.  D 

C UY  RrlAX  A ID  K,-i  I N , CONTINUE. 

130  IUTM-KMAX-SCAI.I  ( I ) * 1 0 . * * 1 1:  XP 
IF(  R.UN.LE.  A.UM)GO  TO  130 

C GO  TO  Till-.  NEXT  LARGEST  MCALi, , RECALCULATE  KM  IN,  AND  kt.Clli-.CK 

J = J + 1 

T F ( .1  . LT .5.3)  GO  TO  130 
.7  = 1 

II.XP-IEXP+1 


GO  TO  l 3 0 

C IF  THE  SCALE'S  ..IN  IS  . LT.  7,1  RO,  BUT 


PUL.  ACTUAL  .,1N  IS  POSITIVE, 
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C SHIFT  Till-:  SCALE  UP  SO  THAT  THU  SCALD  BEGINS  AT  ZERO 

150  I F ( Hr-1  IN*  Arl  IN.GT.O.JGO  TO  170 
R.'l  I N = 0 . 

160  Ri'lAX=SCALE  ( .7  ) * 1 0 . * * I EXP 

C DUE  TO  THE  SHIFT,  IT  .-JAY  BE  POSSIBLE  TO  DECREASE  THE  SCALE  TO 

C THE  NEXT  SMALLEST  SIZE 

IF  ( AilAX.  GT . 1 . 000001*SCAIjE(  1-1)  *10.**IEXP)  RETURN 
J=J-1 

IF(.1.GT.  1.5)  GO  TO  160 
0=4 

IEXP=I EXP-1 
GO  TO  160 

C IF  RUIN  IS  POSITIVE  AND  NEAR  ZERO,  SHIFT  THE  SCALE  DOWil  TO  0.  oil* 

170  IF ( RUIN. LT. 0. ) GO  TO  175 

I F ( RUIN . GT.  .1*  Ri-lAX ) GO  TO  ISO 
RM1N=0. 

RHAX“SCALE ( J ) *10.**1EXP 

C It?  THE  SHIFT  DOWN  CAUSES  R.'iAX  TO  LIE  BELOW  THE  ACTUAL  MAX, 

C INCREASE  THE  SCALE  RANGE  TO  T1IQ  NEXT  LARGEST 

I F ( RMAX.LT.  AilAX)RH.\X=SCALE(.7  + l ) *10.**  I EXP 
RETURN 

C IF  RiEAX  IS  NEGATIVE  AND  NEAR  ZERO,  SHIFT  ’I'HE  SCW,,-.  UP  TO  0.  .1 A X 

17  5 IF(  R.1AX.GE.  0.  ) GO  TO  ISO 

1F(  -R.-1AX.GT.-0.  l*R;'iIN)  GO  TO  180 
Ri-iAX* 0 . 

R>1I.»=-SCALR(.T)  *10.**IEXP 

C IF  THE  SHIFT  UP  CAUSES  RhIN  TO  LIE  AGOVE  THE  ACTUAL  SIN, 

C INCREASE  THE  SCALE  RANGE  TO  THE  NEXT  LARGEST 

1 F ( R.l  I N . GT  . A;  l I N ) Rl  1 1 N = -SC  A E I-  ( J + 1 ) * 1 0 . * * I E X P 

RETURN 

C CENTER  THE  SCALE  ABOUT  THE  ACTUAL  RANGE  OF  POINTS 

1 R 0 ITOP=  ( IMAX-AUAX ) / ( . 0 5 *SC  ALE  ( J ) * 1 0 . * * I EXP ) 

1 30T=  ( Ail  I N-UM 1 N ) / ( . 05*SCALH(  J ) * 1 0 . * * .1  EXP ) 

I D l F = ( I TOP- 1 HOT ) / 2 
IF( IOIF.EO.O)  RETURN 

Ri4 1 N=  Ril  I N-  I D I F * . 0 5 * S C A L E ( J ) * 1 0 . * * I E X P 

R.'l  A X = R.i  I N+SC  A El . ( 7 ) * 1 0.  * * I EX  P 

RETURN 

END 
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8.0  UTILITY  SUBROUTINES 


The  utility  subroutines  have  been  added  to  avoid  some  of  the  annoying 
problems  encountered  when  a program  is  transferred  to  another  system  which 
may  have  similar  but  incompatible  library  routines. 

INTERP  and  LAGRA.N  both  of  which  started  as  library  routines,  have  been 
modified  to  cut  running  costs  wherever  possible. 

A skilled  user  can  probably  replace  these  routines  with  local  library 
routines  and  operate  efficiently. 


8 . 1 INTERP  SUBROUTINE 


The  INTERP  subroutine  provides  interpolation  for  continuous  or  discon- 
tinuous functions  of  the  form  Y *■  f (X) . 1NTERP  is  a shortened  version  of  a 
MCAUTO  library  functional  subroutine  named  DISCOT. 

INTER?  uses  two  other  subroutines,  D1SER1  and  LAGRAN,  to  derive  the  depen- 
dent variable  from  tabulated  data  input  by  the  programmer  or  already  existing  in 
the  program  subroutine.  Subroutine  D1SER1  gives  the  data  points  around  the  X vari- 
able. Lagrange's  interpolation  formula  is  used  in  the  subroutine  LAGRAN  to 

obtain  a Y value.  For  an  X value  lying  outside  the  range  of  the  tabulated 
data,  the  Y value  will  be  extrapolated.  Fluid  viscosities  are  calculated 
using  a modified  Walther  equation. 

8.1.1  Solution  Method.  The  INTERP  subroutine  provides  the  necessary  control 
parameters  to  D1SER1  and  LAGRAN  to  yield  a dependent  variable.  The  sub- 
routine arguments  are: 

Subroutine  INTER?  (X,  TA11X,  TAUY , NC,  NY,  Y,  1ND) 
where: 

X - Argument  uf  function  Y = f (X) 

TABX  - X array  of  independent  variables  In  ascending  order 
TABY  - Y array  of  dependent  variables  in  ascending  order 
NC  - Control  word 

Tens  Digit  - Degree  of  interpolation 

Units  Digit  - =1  Walther  equation 

- 0 LAGRAN  interpolation 
NY  - Number  of  data  points  in  the  Y array 
Y - Dependent  variable 
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IND  - Error  indicator 


0 **  Normal  interpolation 

1 « Extrapolation  outside  range  of  data  points. 

8.1.2  Assumptions . Not  applicable 

8.1.3  Computations . The  degree  of  interpolation  will  be  decoded  from  the 
control  word  NC  in  the  1NTKU11  subroutine  argument  and  passed  to  DI.SER]  . The 
error  indicator  IND  is  set  to  zero.  On  finding  the  data  point  closest  to  the  X 
value  from  DISKR1,  it  is  entered  into  the  LAGRAN  subroutine  argument.  If  the 
modified  Walther  equation  is  to  be  used  for  a viscosity  calculation,  1DX  will 

be  set  equal  to  -1, 

8.1.4  Approximations . Not  applicable 

8.1.3  Limitations.  The  X and  Y data  points  must:  be  entered  in  an  ascending 
order.  When  tabulating  a discontinuous  function  the  independent  variable  (X) 
at  the  point  of  discontinuity  is  repeated,  i.e., 


Thus  for  discontinuous  iunctions  there  must  be  K + 1 points  above  and  below 


the  discontinuity,  where  K.  is  the  degree  of  interpolation. 
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jMblUal— . . 


8.1.6  INTKRP 
Variables 
IDX 
INI) 

NC 

NI’X 

NPX1 

NY 

TABX 
TABY 
X,  XA 
Y 


Variable  Names. 

Description 

Degree  of  interpolation 
Solution  indicator 

•=  0 Normal  interpolation 
= 1 Extrapolation  outside  of  data  range 
Control  word 
Dummy  array 

Location  of  data  point  X,  Y for  interpolation 

Number  of  Y data  points 
X array  of  data  points 
Y array  of  data  points 
Independent  variable 
Dependent  variable 


Dimensions 
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8.1.7  Subroutine  Listing 


-ii-  i.;rv'p(  x,taax, 
tii. i o j 7Yi;<(  l ) ,?v<y(  l) 
i,:x=(  ic- ( ;:c/ 1 o o ) * ]')  o ) / 1 o 
i sn=n 

\\=Y 

CALL  'HAl.'-.l  { X , T A A X , 1 , AY  , 
=LPV(  1 ) 

T C ( ( 1C-IAK*  in).  L C . 1 ) 1 OX-- 
J :•■(  ( ' 'C- 1 AX*  1 0)  . 2 ) IOX=- 

CM.l.  LAC.i  \ ( X\ ,YV>X(  A PCI  ) 
K l.T’Jl!  1 
L it 


rA AY  , :jC  , 1 ! Y , Y,  I-"?) 
»NPX(T) 

1 AX  , .'I  PX  , I MO) 

1 

A 

, t.Y'Y ( n>y  l ) , i + 1 , Y) 
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8.2  DISEkl  SUBROUTINE 


The  subroutine  DISER1  will  return  the  array  location  of  the  lower  bound 
value  of  the  interval  in  which  the  independent  variable  lies.  DiSERl  is  a 
modification  of  a MCAUTO  library  subroutine  named  DIS5ER, 

The  arguments  for  the  D1SER1  subroutine  are  as  follows: 

Subroutine  DiSERl  (XA,  TAB,  1,  NX,  11),  NPX,  1ND) 

XA  - Independent  variable 
TAB  - X array 

I - Tabulated  data  location 

NX  - Number  of  points  in  the  independent  array 
ID  - Degree  of  interpolation 

NPX  - Location  of  lower  bound  for  data  point  XA,  in  the  TAB  array 
1ND  - Indicator 

8.2.1  Solution  Method.  Not  applicable 

8.2.2  Assumptions.  Not  applicable 

8.2.3  Computations . On  entry  of  the  independent  variable,  XA,  and  the  tabu- 
lated data  form  the  TABX  array,  D1SER1  will  find  the  tabulated  data  values 
that  bound  XA,  and  return  the  smaller  one  to  the  calling  program.  If  XA  were 
to  lie  outside  the  lower  end  of  the  data,  D1SE1U  would  return  the  first  data 
point  as  the  lower  bound.  Should  XA  lie  outside  the  upper  tabulated  value, 
the  second  from  the  last  data  point  location  will  be  returned  by  DISERl. 

8.2.4  Approximations . Not  applicable 

8.2.5  Limitations.  Not  applicable 
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8.2.6  DISER1  Variable  Names 


Variable 

1ND 

I,  ID,  IT, 
NLOW,  NPB, 
NPX,  NUPP, 

TAB 

XA 


Description  Dimensions 

Solution  indicator 

J,  NLQC, 

NPT,  NFU,  Integer  counters 

NX,  NXX 

Array  of  independent  variables 
Independent  variable 


8.2.7  Subroutine  Listing 


.v'lnKOUTI.li;  01 SL K 1 ( XA  , TAU , I , XX  , IQ,N?X,  IMP) 
OTiitiWiJIO.i  '7AM  1) 

I1M  X.\-TV>(  I ))  71,73,7  2 

71  I.Jr)=I\’D+l 
NPX=  I 
RLTHWM 

7 3 XA=TM3  ( I ) 

M1'X=I 

r.i.Tfjrx 

72  1=I+NX— 1 

I F ( XA-TA’3(  J)  ) 1 , 77 , 70 


7 G 

ipn-i  10+ 1 

XPX=J-I0 

Ri.'lVJKil 

77 

X \=T A 3 ( 3) 
1 [>:'.= J-I  3 
pi.Tij:::’ 

1 

:i»T=I0+l 
Kl’J*  ! ?'?/  2 

•;-p;j=.:pt-gp.i 

I'M ‘IX- OPT)  i,  0,  1 7 

4 

i v- 1 

CO  TO  1 

r; 

n>x=i 

PL.  TO 

10 

'■I IV)  , = l+i;P7 

:■!  UP?=I +IJX  - ( P P!J+1 ) 

I r ( ox-27) is, 13,11 

1 1 

mXX='!X/?  + I 

MM  :<A-r\r,(:r-ix) ) 17 

,17,13 

] ? 

lx;'-  ix/ 4 

IlM  X.A-  TA.M  AXX)  ) 1 3 

, 17, 17 

13 

mx:<=:’xx+  :x/4 

KM  XA-TAM  ■'.>’;<)  ) 1 S 

,17, 17 

1 -•! 

•II/V  = ’XX-  3X/4 
00  TO  13 

17 

ri  L0-  . = w (I  X 

1 ° 

O'")  n i i=;.l  )w  , mjp^ 

'J  LOG  - 1 l 

I!  ( r A M I l)-XA)  13, 

27,30 

17 

CO  i'l'IiXJL 

•j  p;c=-;,jp.',-:;p  i+i 

71. TOO!.1 

2n 

.’LOC-OP  5 
i’  i.T’J'.P'i 
i-. : I o 
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8.3  LAGRAN  SUBROUTINE 


The  LAGRAN  subroutine  will  interpolate  or  extrapolate  a data  point  from 
two  known  tabulated  values.  In  addition,  LAGRAN  will  calculate  viscosity  using 
a modified  Walther  equation.  The  LAGRAN  subroutine  arguments  are: 

Subroutine  LAGRAN  (XA,  X,  Y,  N,  ANS) 

XA  - Independent  variable 
X - X array 

Y - Y array 

N - Degree  of  interpolation 

ANS  - Dependent  varaible 

8,3,1  Math  Model,  LAG-RANGES  interpolation  equation  is  used  in  this  subroutine 
to  calculate  the  dependent  variable.  The  LAGRANGE  formula  is: 

HI 

P (x)  -X  L.  (x)  y, 

1=0 


Where: 

(x)  is  the  Lagrange  multiplier  function. 


(x) 


(x-xQ)  (x-x^) ’ " (x-x  ) (x-x1+1) ' * ’ (x-xn) 
CXi'-x())  (x^)— (Xl-Xi_i)  (x±-xt+1)  • • • (Xi-x,^ 


(2) 


The  LAGRANGE  equation  w'lL  generate  a polynomial  between  two  data  points. 
The  degree  ot  the  polynominal  will  be  that  specified  by  the  index  value.  N. 

The  dependent  variable  will  be  returned  as  ANS  in  the  subroutine  argument. 

A modified  version  of  the  Walther  equation  is  used 
in  the  calculation  of  viscosity.  The  ASTM  charts  are  based  on  thi3  equation, 
LOG  [LOG  Cv+O  ] = A LOG  “R  + B (3) 

Where: 


c “ a constant 
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°R  “ Temperature,  °RANKINE 
v * Viscosity,  cSt 
A,B  =■  Constants  for  each  fluid 
LOG  ■ Log  to  the  base  10 

The  ASTM  chart  expresses  c as  a constant  varying  from  0.75  at  0.4  cSt  to  0.6 
at  1,5  cSt  and  above. 

8.3.2  Assumptions . The  Lagvangian  equation  generated  by  the  subroutine  will 
only  use  the  data  points  around  the  dependent  variable  to  generate  a polynomial 
for  interpolation.  The  last  or  first  set  of  two  data  points  will  be  used 

for  extrapolation.  The  equation  used  to  determine  the  viscosity  uses  a 
constant  factor  that  is  applicable  to  viscosity  values  of  2 centistoko*  or  more. 

8.3.3  Computation.  The  procedure  LAGRAN  will  perform  whether  it  he  inter- 
polation or  the  viscosity  calculation,  will  always  he  recognized  by  testing 
the  N argument  in  the  subroutine  statement.  If  N is  equal  to  zero,  then  the 
viscosity  will  be  calculated  using  the  modified  Walther  equation.  Otherwise 

N will  specify  the  degree  of  interpolation  to  be  used  by  the  Lagrange  formula . 
Both  results  will  be  returned  to  the  calling  program  through  the  variable 
named  ANS.  The  LAGRAN  interpolation  is  a direct  application  of  equation  (i1 ') 
to  the  given  data. 

Before  evaluating  the  viscosity  equation  (3)  for  the  viscosity  value  aL 
XA  temperature,  the  constants  A and  B must  be  calculated.  They  are  solved 
using  the.  data  points  that  surround  the  dependent  variable,  or  the  first  or 
last  set  of  two  data  points  if  the  dependent  variable  lies  outside  the  range 
of  the  tabulated  data.  With  the  constants  calculated  for  this  fluid  the. 
viscosity  can  be  computed  from  Equation  (3). 

8.3.4  Approximations . In  the  viscosity  calculation,  0.6  was  used  as  a 
constant  factor  for  all  ranges  of  viscosity.  See  reference  9,6  for  a more 
thorough  discussion. 


8.3-2 


8. 3.3  Limitations , Since  the  LAGRANGE  method  only  uses  two  data  points  to 


Interpolate  it  can  become  inaccurate  for  remotely  spaced  tabulated  data 
points.  Any  degree  of  interpolation  greater  than  two  can  lead  to  erroneous 
results. 

Fir  the  viscosity  equation,  any  computed  value  of  viscosity  less  than 
2 centistokes  cannot  be  considered  accurate,  and  should  be  weighed 
in  the  final  results. 

8 . 3 6 LACRAN  Subrouiine  Variable  Names 

Variable  Description  Dimensions 


A 

Constant  for  viscosity 

— 

ANS 

Dependent  variable 

- 

B 

Constant  for  viscosity 

- 

I,J 

Integer  counters 

- 

« 

Method  of  solution 

N --  0 Viscosity  calculation 

N > 0 Degree  of  interpolation 

Lagrange  partial  product 

- 

I'.l 

J.OG  LOG  of  (Y  (1)  + 0) 

cSt 

3 :• 

LOG  LOG  of  (Y  (2)  + C) 

cSt 

T1 

o<  ■ T (1) 

°R 

T?. 

LOO  it  i 2) 

°R 

X 

X-ar ray 

- 

XA 

IndepcHt.  nt  variable 

- 

Y 

Y-artay 

- 

S3 . 3-3 


• 


8.3.7  Subroutine  Listing 


SU3 ROUTINE  LAGRAN ( XA , X , Y , N , AM S ) 

Dli-lENSIOri  X ( 1 ) , Y ( 1 ) 

GO  TO  20 

IP(S.EO.O)CO-Tb  10 
S ill =0.0 
00  3 1=1, N 
?K00=Y ( I ) 

DO  2 .1=1,  H 
a=:<(  i )-;<(!) 

IF(A)  1,2,1 

1 0=  ( X.A-X ( J ) ) / A 
PP0U=?R00*3 

2 CO'ITINUfc 

3 G!J..=3Ui-;+PA00 
ArfS=5lk; 

RETURIJ 

VI 3 COS I TV  C A LCULATIOH 
10  CO’"TI :•! U £. 

A 1=0. 

IP(Y(1) .LE. 2.). \1«EXP( -1.47-1. 34*Y(1)-.51*Y( 1)**2) 

A 2=0. 


I F ( Y ( 2)  . L . 2 . ) A 2=0 X ? ( - 1 . 4 7 - 1 . 3 4* Y ( 2)-.51*Y(  2)**  2) 
P 1 = A LOG 1 0 ( ALOG 1 1 ( Y ( 1 ) + . 7 +A 1 ) ) 

P2=AL001 ”)( ALOC10( Y( 2 ) +. 7+A2) ) 

Tl«\LOG10(X(  D+4  50. ) 

T2=AL0G1  D ( X ( 7 ) + /1 50. ) 

0= ( ?l-?2) /( T2-T1 ) 

A=?1+U*T1 

S*1 0** ( 1 0** ( A-1*ALOG10( XA+450. ) ) ) 

I -■(  Z.LC.  2.7)00  TO  11 


AFS=Z-.7 

RLTiJil-'J 

11  AO,;  = ( Z-.  7 ) - LXL'(  - . 7 13 7-3. 20  5*  ( Z-.7)  + . 5119* ( Z-.  7)  **2 
+-.3193*(Z-.7)**3) 

FL'C’IRJ 


FLUIOt  CALCULATION 


'n\vn 

• J * X 


IUtJL 


Pl=.M.D01 9 ( ALOG  1 0 ( Y ( l)  + .5)  ) 

P?=ALOGl 9( ALOG10( Y ( 2)  + .5)  ) 

Tl=ALOGl 0 ( Y(  1)  + ?C>9.  ) 

T2=ALOG19( X( 2J+150. ) 

?=(?l-?2)/(T2-Tl) 

A=P1+3*T1 

vn= 1 0*  * ( 1 3*  * ( A-3*  ALOO 1 0 ( XA+ 4 6 0 .)))-. 6 
?5=13**(  ( .125D30+-M/3) 

T 1 0 0 > 1 0**  ( ( 477 159+A  )/3) 

3= A LOG 1 9( (75)/ 190. +1.) -ALOG10( (T1900)/] 00. +1) 

Dt  LX = *5  5 . 10070*3 

3=F.55/DLLY 


ALP0A=3. 23523-11. 3805*3+13.  1735*3*3-4. 3331*3*3*3 
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8.3.7  (Continued) 


BLTA—5. 33 4 25+19. 9 521*3-23. 9 4 43*3*5+1 0.1 55* 

CH 1=3.3545 2- 13.1 2 73*3+17. 1712*3*3-7. 6551*3* 

AS 3=A  LPH  A+3 ETA*  ALOG 1 0 ( VO ) +C  H I * ( A LOG 1 0 ( VO ) ) * * 2 

IF(  Ai'JS.LT.O.  )«VJ3=0 

RLT'JRU 

END 
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CD  0; 


8.4  SIMULT  SUBROUTINE 


SIMULT  is  a Fortran  library  .broutine  (Reference  9.3)  that  solves 
systems  of  R linear  algebraic  equations  with  N unknowns.  SIMULT  employs 
Gaussian  elimination  and  positioning  for  size  using  the  largest  pivotal 
divisor  as  the  solution  process. 


8.4.1  Solution  Method  - A system  of  linear  equations  may  be  written 


allxl  + a12x2  + • 

• + aln  ’Sn 

a21xl  + a22x2  + • 

• + a2n  xm 

amlxl  + am2x2  + • • + ainmxn 
Rewriting  in  matrix  form: 


- 

|"  all  a12  • • 

X1 

bl 

a21  a22  • • a2m 

x2 

b2 

. . • • 

• • 

• 

• 

Ami  am2 

*UI 

bm 

» — 

- 

Equation  (2)  may  be  further  simplified  by  writing: 

AX  - R (3) 


where 

A = M * M Matrix  of  coefficients 
B = M Matrix  of  Constants 

X = M Matrix  of  M unknowns  in  the  system. 
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The  solution  of  a set  of  simultaneous  linear  equations  as  in  (1)  is 
by  Gaussian  elimination  using  pivoting.  Each  stage  of  elimination  consists 
of  interchanging  rows  when  necessary  to  avoid  division  by  zero  or  small 
elements.  The  forward  solutio  to  obtain  variable  M is  done  in  M stages. 

The  back  solution  for  the  other  variables  is  calculated  by  successive  substi- 
tutions. Final  eolution  values  are  developed  in  matrix  B,  with  variable  1 
in  B(l),  variable  2 in  B(2),...,  variable  M in  B(M).  If  no  pivot  can  be 
found  exceeding  a tolerance  of  0.0,  the  matrix  is  considered  singular. 

The  arguments  for  SIMULT  are  as  follows: 

Subroutine  SIMULT  (CA1.C1 , CALC 2 , M,  J) 

where : 

CALC1  = A 
CALC 2 = B 

M = number  of  equations 
J = solution  indicator 

J = 1 when  no  solution  can  be  found  - equations  are 
singular 

J = 0 for  a normal  solution 

Both  the  original  CALC1  and  CALC2  Matrices  are  destroyed  In  the  computation. 
The  answers  are  returned  through  the  CALC 2 Matrix. 

8.4.2  Assumptions  - The  basic  assumption  used  in  the  solution  of  simultaneous 
linear  equations  involves  the  ability  to  actually  linearize  the  complex 
mathematical  system  that  is  being  described,  If  this  can  reasonably  be 
done  then  a set  of  equations  as  in  (1)  may  he  written  and  solved. 


8.4.3  Computation  - Gaussian  elimination  and  positioning  for  size  using  the 


largest  pivotal  divisor  is  used.  Positioning  for  size  or  pivoting  will 
ordinarily  reduce  some  of  the  roundoff  errors  in  the  solution  and  may 
actually  allow  some  ill-conditioned  systems  to  be  solved.  See  Appendix 
D S3FAN  Technical  Manual  (MDC  A3059  Vol  li)  for  a more,  thorough  discussion 
of  this  method. 

8.4.4  Approximat ions  - The  approximations  are  inherent  In  the  use  of  the 
Gaussian  elimination  procedure  as  described  in  Appendix  D of  the  SSFAN  Tech- 
nical Manual. 

8.4.5  Limitations  - If  no  equation  in  the  set  (1)  is  a linear  combination 
of  the  others,  the  system  of  equations  is  said  to  be  linearly  Independent 
and  a unique  solution  exists  for  the  unknowns..  A system  of  equations  are 
homogeneous  if  each  bp  in  B (EQN  2)  is  equal  to  zero.  The  Gaussian 
elimination  method  will  provide  a unique  solution  to  equation  (3)  when 

the  corresponding  homogenous  system  has  only  the  solution  X = 0.  both 
systems  AX  = B and  AX  = 0 as  well  as  the  coefficient  matrix  A are  then 
termed  non-singular.  When  AX  = 0 has  solutions  other  than  zero,  the  two 
systems  and  matrix  A are  termed  singular.  This  results  in  AX  - B either 
having  no  solution  or  an  infinite  number  of  solutions. 


8.4- 


8.4.6  SIMULI  Subroutine  Variable  Names 


Variables 


A 

B 

RIGA 


IA, IB, IC  ,IJ 
IMAX.IQS ,IT 
IX,IXJ,IXJX, 
I1,I2,J,JJ ,JJX, 
JX, JY ,K,NY 

N 

SAVE 

TOE 


Description 

N*N  Matrix  of  Coefficients 
N matrix  of  constants 
Largest  element 

Integer  counters 

\ 

Number  of  unknowns 
Temporary  storage  location 
Tolerance 


Dimensions 


8.4.7  Subroutine  Listing 


5 03  ROUT  IN  t SIwULT  ( A , *3 , W , K3  ) 

C****  rqvISEO  SEPTErt3ER  3,1974  **** 

DIMENSION  A ( 1 ) , 3 { 1 ) 

TOL=0. 0 
K3  = 0 
JJ=-N 

00  6 5 J = 1 , 'v 
JY=J+1 
JJ= J.7+0+1 
3I'3A*0 
IT=J J-J 
03  30  I = .7 , W 
IJ-IT+I 

I? ( A03 ( BIGA ) -AOS ( A ( I J) ) ) 30, 30, 30 
20  3IGA=A( I J) 

I. i  AX=I 
30  CONTINUE 

IF  ( A3 S ( 3 1 G.A ) -TOL)  35,35,40 
35  KS-1 
OF, TURN 

•10  Il»J+\'*(.7-2) 

IT-I.iAX-J 
00  50 
11=11+0 
1 2=1 1 + IT 
i3AV(i*A(  II) 

A(  1 1 ) =A( I 2) 

A ( 1 2 ) = 3.AVL 
50  A ( 1 1 ) = A ( 1 1 ) / 7 1 GA 
3AVL=3(  I. .AX) 

0(  I ,‘A v ) = 3 ( 7 ) 

3(7)=3AvL/3IGA 
IF( J-N) 55,70, 55 
55  1 DD='N*  ( J-l ) 

DO  65  IX=JY, N 
I X .7=1  OS  + IX 
IT=J-IX 
DO  6 0 JX=7Y,n 
I X J X=N  * ( J X- 1 ) + 1 X 

J, 7Y=IX-7’<+IT 

6 0 A ( I X.7X ) = A(  I XJX ) - ( A ( I X J ) * A ( J JX ) ) 
65  7 ( I X ) =0 ( IX ) - ( D ( 7 ) * A { I X J ) ) 

70  NY=;i-l 
IT=N+N 

DO  3 0 .7=1,  '"l 
I.A  = IT-J 
I3=U-J 
IC=M 

D O 3 0.  X=1 , 7 

■3(I0)=3(I3)-A(IA)*3/IC) 


S3 
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****W 


8.4.7  (Continued) 


IA=IA— ?•! 
30  IC=IC-1 
RE TURK 
Ef-H 
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8.5  SBRAN  SUBROUTINE 


The  SBRAN  subroutine  is  a special  utility  program  which  enables  the 
programmer  to  input  lines  without  having  to  separate  them  with  a component 
or  end  them  with  a component. 

8.5.1  MATH  MODEL 
Not  applicable. 

8.5.2  ASSUMPTIONS 
Not  applicable. 

8.5.3  COMPUTATION 
1000  SECTION 

All  the  connection  data  for  the  lines  is  checked  in  the  LC  array. 

Should  a line  be  dead-ended,  a minus  one  will  be  in  the  appropriate  address 
of  the  LC  array.  The  number  of  dead  ends  are  counted  and  the  address  of  the 
downstream  end  of  the  line  number  is  stored  in  the  LI,  array. 

Next  the  lines  are  checked  to  see  if  they  are  connected  to  each  other. 
This  occurs  when  a one  is  found  In  the  downstream  address  of  one  line  and 
the  upstream  address  of  another  in  the  LC  array.  The  address  is  stored  in 
the  Ll  array  and  a counter,  NDKNDI , is  incremented  for  each  line. 

If  the  sequences  of  -1  -1,  0,  0,  or  +1,  +1  are  not  followed  for  the 
line  data,  the  program  will  stop  execution. 

3000  SECTION 

Tor  a dead-ended  line  the  address  of  the  lines  pressure  and  flow  data 
is  found  In  the  LL  array.  The  flow  in  the  line  is  set  to  zero  and  the  end 
pressure  is  set  to  the  characteristic  pressure. 

The  LL  array  also  contains  '.lie  addresses  of  the  1’,  1),  /'.  and  1.  variables 
for  any  lines  that  are  connected. 
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The  flow  is  computed  as 
Q(I)=(C(T)-G(JJ))/(Z(I)+Z(JJ) 
Q(JJ)=-Q(I) 
where: 


I denotes  the  upstream  li.ne  end  point 
JJ  denotes  the  downstream  lines  beginning 
The  pressures  are  calculated  easily  as 
P(I)«C(I)-Q(I)*Z(t) 

P(JJ)-?(I) 

8.5.4  APPROXIMATIONS 
Not  applicable. 

8.5.5  LIMITATIONS 

SBRAN  does  not  take  into  account  the  pressure  drops  or  rises  that 
result  from  any  changes  in  cross  sectional  area  going  from  one  line  to 
another. 


8.5.6  VARIABLE  NAMES 


Variable 


1 

JJ 

KFAIL 

NLINE 

NDENDS 

NDUND1 


Description 

Downstream  Line  Address 

Upstream  Line  Address 

Error  Indicator 

Number  of  Lines 

Number  of  Dead-Ended  Lines 

Counter  for  Connected  Lines 
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8.5.7  Subroutine  Listing 


r * * * 


JUOROiJTIUb  6W.VJ 
tfcVlSED  Dt.CL.w3ER  5,  197  5 *** 


CO  1.:0‘V3UVPAS.;{  150,9)  , Prl ( 150  0)  ,0w(  1500)  ,?(  300)  ,0(300)  ,C(  300) 

1,  "{ 300) ,KU0( 20) , S 20RH0( 20) ,VISC( 20) ,S3LK( 20) ,TLwP( 20) ,PVA?( 20) 

2,  ATPfU:.;S,T,  DtlLT,TFIMAL,  PLT.OCL,  PI , TITLE  ( 20 ) ,L£GM,  ICOrt 

3 , '<T  t ip{  00)  , LS  T \ AT  ( .150),  N L PT  ( 150)  ,LTY?t  :(9D)  ,MC(09)  ,ISX,IWS 

4 , 1 ■-3V,  I S T C P , 4 L I M l , 0 K L , I rJ  D , I E S TP , . il J L I • 3 E , i 03 L L , . i H LK G , r:3 tlO 0 u , . .1 3 PLOT 
5 , i-iMLPTG , ! IDS 
OI. . h' ’is 1 0 3 LL(55)  ,LC( 1) 

LOOIVALv.OCl:  ( LC  ( 1)  ,C(  1)  ) 

I?(  I L.OTR)  1000, 2000, 3000 
10  00  CO'4TI-?OL. 

J=0 

03  loo  i=i,cr,r  <L 
•J-7=I*  2 

IP(LC(J.7).-vi:.-i)  OO  TO  100 
.7=7  + 1 
LL(  -7  ) = J J 

100  CO’OTIr’ilL 
!■:',  ! ■!  jo  = J 

'•rt’Tf-O. 

M \j  — i 

.:=.-3LI  3 l-1 
DC  7po  T = 1 , . i 
.7  7=1*2 

IF(.r,C(  JJ).!:0.-1)  CO  To  10  0 
IF(  LC(  7.7)  . 3L.LC(  JJ  + 1)  ) GO  TO  150 
IF(  LC(  J.J)  -7)  30  TO  20  0 
J-J  + l 
r-.L  ( 7 ) = .J  7 
GO  TO  200 
150  10=1+1 

.:!iIT6(5,4  000)  i,i;< 

4 000  FO.'W  vr-(  5X,I3,5X,I7) 

A PM  0=1 


{ > 

TO  20  7 

I 

:•( 

LC ( 7 J+l ) , 

. v i. . .7 

) •: 

TO  TO 

c 

r; 

GT 

w 

j'L 

301= 3 Cl v 

7.2  + 1 

T 

L 

r'P'Mr,.r 

. 1 ) A 

in 

4 0 , 7 ; 

'j  i * 

-:AT(  17a,  ' 

52.7PR 

07! 

■;A..  0 2 

I 

:■( 

TF.ML,  33  r. 

.1)  3 

•**r* 

x • : 

■<  <7  n n 7 

to 

T'J? 

;j  r> 

c 

J •’ 

.*  1 1 v 0 i'. 

T 

X 

;( 

i 7l. i,' 

‘.  7) 

r o .7  0 

P 

0 

77 ?0  . ;=  1 , 

, 'Tu‘3 

I 

««,  r 

~~  U 

L(.) 

3 13  ' ‘.OUT I 3L  CORA  ■) 


° ( I ) = 0 . 0 
3020  P(I)=C(I) 

3 o 2 5i  !■’  ( . i ot  5 . l.  o . .7 ) rc  7 o <*.  o 

00  3 *'50  0 = tDjl'.'01,.7 
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ryttrp. 


8.5.7  (Continued) 


I = LL(  ri ) 

JJ=I+1 

0(I)=(C(I)-C(JJ) )/(Z(I)+Z( JJ) ) 
Q(JJ)=-0(I) 

?(I)=C(I)-0(I)*Z(I) 

P(JJ)=P(I) 

3050  COM-IMUL 
3 050  RETURN’ 

END 
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8 . 6 SUBROUTINE  XLIMIT 


XLIMIT  is  a utility  subroutine  which  provides  the  calling  program  with 
information  to  determine  if  a limit  has  been  reached.  The  subroutine  is 
typically  used  for  components  with  mechanical  movement  and  returns  position 
and  velocity  data. 

8.6.1  MATH  MODEL 
Not  applicable. 

8.6.2  ASSUMPTIONS 
Not  applicable. 

8.6.3  COMPUTATION  METHOD 

Minimum  (POSMIN)  and  maximum  (POSMAX)  limits  are  input  along  with  the 
current  values  of  position  (POS)  and  velocity  (VEL)  from  the  calling 
program.  Initially  the  sign  is  set  to  zero  and  the  position  is  compared 
against  POSMAX. 

If  POS  is  greater  than  or  equal  to  POSMAX,  the  position  is  set  to 
POSMAX  and  AS1GN  is  set  to  1.  Should  VEL  be  greater  than  zero  it  Is  zeroed 
and  a return  Is  made  to  the  calling  program. 

If  POS  is  less  than  POSMAX  it  is  checked  against  POSMIN.  When  POS  is 
less  than  or  equal  to  POSMTN,  POS  Ls  set  to  POSMIN,  AS1CN  equals  --1  and  the 
velocity  is  zeroed  if  It  is  less  than  zero. 

Should  POS  be  greater  than  POSMIN  a return  is  made  to  the  calling 
program  without  any  position  or  velocity  changes. 

8.6.4  APPROXIMATIONS 
Not  applicable. 

8.6.5  LIMITATIONS 
Not  applicable. 
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8.6.6  VARIABLE  NAMES 


Variable 

ASIGN 

POS 

POSMIN 

POSMAX 

VEL 


Description 

Sign  (-1,  0,  1) 

Position 

Minimum  Position 
Maximum  Position 
Velocity 
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8.6.7  Subroutine  Listing 


SUBPOUTIMtS  XLIrllTf  POS,  VLL,A3IGN,  POS.iI>i , POS.uAX) 
A3IGN=0.0 

IF ( POS-POSGAX)  20,10,10 
10  P03=P0S.iAX 
A3 1(5:3= 1.0 

IF ( VLL.GT.0.0)  GO  TO  40 
GO  TO  50 

20  I7(POS-POSiiIN)  30,30,50 
30  P0S=P03.lIM 
ASIGG=-1 . 0 

IF  ( VLL. GL  .0.0)  GO  TO  50 
40  VLL=Q . 0 
50  Pt.TURK 
END 
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8.6.7  Continued) 

SUBROUTINE  OLIMIT(  POo  , VEL,  ASIGN  , POSalK1 , POS.'iAX) 

double  precision  ?os,vll, asign 
ASIGK-0.0D0 

IF(  POS-POSiiAX)  20,10,10 
10  POS-POS.SAX 
ASIG3*1.0D0 

IF(VEL.GT.Q.ODO)  GO  TO  40 
GO  TO  50 

20  IP(POS-POSr:Itf)  30,  30,50 
30  POS-POSrilS 
A3IG«*-1.0DO 

IF(VEL.GE. 0.000)  GO  TO  50 
40  VEL- 0.000 
5 0 RETURN 
LSD 
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8.6.7  (Continued) 


FUNCTION  SQRABS(X) 
IF(X)100,200,300 
100  SQRA3S=-SQRT(-X) 

GO  TO  400 
200  SQRASS=0.0 
GO  TO  400 
300  SQRA3S=SQRT(X) 

400  RETURN 
END 


8.7  SUBROUTINE  TUSTIN/FUNCTION  DYNAM 


The  Tustin  subroutine  provides  coefficients  to  approximate  difference 
forms  of  continuous  transfer  functions  for  digital  simulation.  The  Z-plane 
equivalents  of  the  integrator,  lag,  or  lag  and  washout  for  S-plane 
continuous  functions  can  be  selected. 

Function  DYNAM  performs  the  actual  computation  for  the  chosen  transfer 
function. 


8.7.1  MATH  MODEL 

For  a general  function  G(s)  with  input  X and  output  Y, 


G(s) 


Y 


The  output  at  any  time  Yn  can  be  approximated  by  a difference  equation 


VC1  yN-l  + C2  *N  + C3  *N-1 

where  C^,  C2,  are  constants  for  a particular  set  of  time  constants  (t) 
and  clock  time  (AT)  and  need  only  be  computed  one  time,  in  the  initialization 
section  of  the  program. 

The  derivation  of  the  integrator,  lag  and  lag  and  washout  are  presented 
below. 
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Dlf-ilTAl,  SIMULATION  OF  CONTINUOUS  TRANSFER 
FUNCTIONS  USING  lllSTIN'S  METHOD 


Substitute 


AT 

9 


1 + 
1 - 


1 


for  1/S 


1 NTFCRATOR 


1/S 


Y 

X 


1 _ AT 

S ~ 2 


J JLiu 
r - r 


-] 


y [l  - ]«  x [ 1 + o'1  ] 


Y - Y.,  - [X  + X_,] 


V - Y_!  4 ^ C X 4 


Y 


C,Y 


F (’  X + ('  X 


8 


:*!*< 


LAC  AND  WASHOUT 


S 

f S+l 


1 

i + l 


1 + AT 
2 


1 + C 


r-1 


Y 

X 


-1 


( (1  - i.  ) + 


AT 


(1 


Y 

X 


(1  - 


(i  + 


-1 

f. 


Y 

X 


i + 

1 - 1 

",  - (AT/2)  1 

-1 

f 

i + (AT/ 2) 

V - [ 

■f  / (AT/ 2)  - 1 | 

Y 

1/ (AT/2) 

1 

_ i / (AT/2)  + 

i / (AT/ 2)  + 

8.7.2  ASSUMPTIONS 


Not  applicable. 

8.7.3  COMPUTATION  METHODS 

Given  below  are  the  values  of  the  constants  for  the  three  transfer 


functions  : 


1 - Integrator 

2 - LAG 


3  - LAG  and  Washout 

1.  INTEGRATOR  - G(s)=l/s 


C2  = AT/ 2 
C3  = AT/2 

2.  LAG  - G(s)= 

TS+1 

C - t - (AT/2)  / t + AT/2) 

C2  = ( t/2)  / I + (DT/2) 

C3  " °2 

3.  LAG  and  WASHOUT  - G(s)= s_ 

T S+l 


C - x - (AT/ 2)  / ^ + (AT/ 2) 

C,  = 1 / t 4-  (AT/2) 


8.7.4  APPROXIMATIONS 
Not  applicable. 

8.7.5  LIMITATIONS 

The  sample  frequency 
system  frequency.  Should 


must  be  10  to  15  times  larger  than  the  large 
lower  sample  frequencies  (larger  time  steps) 


selected  discrepancies  will  arise  between  the  Z-plane  and  S-plane  frequency 
responses.  With  a fairly  large  sample  frequency  the  Z-plane  response  is 
almost  identical  to  the  S-plane  frequency  response  and  continuous  design 
techniques  may  be  used.  However  if  the  sample  frequency  is  15  to  AO  times 
the  highest  system  frequency,  there  are  numerical  difficulties  with  the 
Z-transform  technique  which  will  cause  the  frequency  response  to  deviate 
from  the  continuous  case. 

8.7,6  Variable  Names 
Not  applicable. 
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8.7.7  Subroutine  Listing 


SU'D  ROUTINE  TUSTI '!(  J , T,VJ,C,  DT)  , 

coefficients  for  digital  simulation  of  continuous  transfer  fuuctio 


FUNCTION  IN  THE  FORM  ( APPROXIMATE 


difference  FOR. I) 


Y(N)  = Cl*  Y (r  ’ - 1 ) + C2*X(N)  + C3*X(>J-1) 


J = 1 INTEGRATOR 

J = 2 LAG 

J = 3 LAG  AND  WASHOUT 


0 Ini:. OS  ION  C { 3 ) 

DT2  = DT/ 2.0 
I?  (T.GT.l)  GO  TO  10 


INTEGRATOR 


C(  1) 

= 1.0 

C ( 3 ) 

= DT2 

C(  3 ) 

= DT  2 

GO  T-: 

) 50 

COKT] 

[DUE 

= TAU+0T2 

TAUn 

= TAU-DT2 

GO  TO  ( 20,20,30)  , J 

LAG 

20  CONTINUE 

C ( 1 ) = TAJ.i/TATj? 

C ( 2)  = DT2/TAUP 
C ( 3 ) = C( 2) 

GO  TO  50 

LAG  and  wash 


(IT 


30  continue 

C(l)  = TAU.'i/TAU? 
C( 2)  = 1.0/TAUP 
C ( 3 ) = -C  { 2 ) 

50  CONTINUE 
•2  L TURN 
Li'.D 
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nan  o r,  o o 


8.7.7  (Continued) 


FUNCTION  0Yi3A,.(X,Y,C) 

CALCULATION  OP  CONTIGUOUS  TRANSFER  FUNCTION’S  3Y  TOST IN 3 liETflOO 
FUNCTION  IN  Tilt;  FOP.i'i  ( APPROVI.-iAic  OIFfEKLNCt  f’ORu) 

Y ( M ) = C 1 * Y ( i\ - 1 ) + C2*X(fj)  + ‘ C3*X{ r-1-1 ) 


DIMENSION  X(?),C<3) 

OYN.Vi  = C(1)*Y+C(2)*X(2)+C(3)*X(1) 

RETURN 
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0.8  SUBROUTINE  LUCUP 

Subroutine  LUCUP  provides  linear  interpolation  of  data  points  for  a 
three  dimensional  table.  Two  coordinate  points  are  input  and  LUCUP  returns 
the  third  value. 
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8.8.1  Subroutine  Listing 


! 


3 U 3 ROUT  I T h LUC  UP  ( « D , M A , X , Z , X,\ , % R , TC , 1 1 i,  K E XT  ft ) 

DIrtL.USIC.-3  X(  1 ) , Z(  1)  , UA(  1 ) , XA( 1 ) 

nt=;;a  ( 1 ) 

L2«WA( 1) 

T=XA( 1) 

P=XA ( 2 ) 

IT=1 

IF ( r-X( 1) ) 30, 00, 50 
50  DO  (50  1 = 2,  L2 

I? ( T-X ( I ) ) 70, 90, 60 

60  CONTINUE 
IT=L2 
T\ODt=l 
GO  .TO  100 
7 0 IT -I 

f:ooi>i 

GO  TO  100 
0 0 IT  =2 

KODL= 1 
GO  TO  100 
90  IT=I 

."COL  = 2 
GO  TO  110 
100  COUCTTJE 

RAT I OT= { T-X ( IT-1 ) ) / ( X ( IT) -X ( IT-1 ) ) 

110  COOT TRUE 
Ll=L2+2 
L2=L2+rtA( 2) 

I=L1- 1 

IP ( P-X ( Ll-1 ) ) 1 VJ , 19 , 1 50 
150  00  1 60  I=L1,L7 

if ( ?-:■;(  i) ) 170,100,150 
100  C CUT I ft UP 
I ?=L2 
TOPb?=l 
GO  TO  200 
170  IP=I 

:<OCL?=l 
GO  TO  200 
100  I ?=L.l 

KODL^=l 
GO  TO  2 on 
ion  ip=i 

GOOD  ?=? 

GO  TO  210 
200  CO-vTIftUL 

Rvnot>=(  ?-x( IP-1 ) )/(*.(  Ift)-X( IP-1) ) 

210  COnTI  ft  Ur. 

I P= I P— UT 

I F ( K'OOL  .EC.  1.  A!-1  0 . ft’O  Dft  ? .LG.  2 ) GO  T 0 <100 
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8.8.1  (Continued) 

ttP(  KODL.  UQ.  2.&ND‘.  KODiLP.  CQ.  1 )GO  TO  609 
ire ( KOOfc .10.2.  AKD.  KODL* P.  KQ.2)  GO  TO  3 00 
IZ*«T*( IP-2)+(IT-l) 

T.l  = Z(  1 2 ) +TATIOT*  ( Z ( IZ+1)-Z(  IZ)  ) 
IZ=IZ+^T 

T2=S(  IZ)+U;%TIOT+(Z(  IZ+1)-Z(  IZ)  ) 

Z W-71  + RATT0P* ( T2-T1 ) 

GO  TO  lono 
4 00  CQi’TI  'TUlT 

IZ* TT* ( IP-l)+( IT-1) 

Z R=Z ( I Z ) + RATIO?* ( Z ( IZ  + 1 ) -Z ( I Z ) ) 

GO  TO  1009 
699  GOTTI OGL 

IZ=RT* (IP-2) +IT 
IZT=IZ  + 'JT 

ZR=Z(  IZ)+?ATIOf»*(S(  IZT)-Z(IZ)  ) 

GO  TO  ion-*) 

3 09  CO^TI-l'lL, 

I3=.rr*(  ip-D+it 

7iT->Z(  IS) 

1000  CO.’)  1*1:401 
KLTUK.-l 
LTD 


8.8-3 


n n o n n n < > n no  o n 


8.9.1  Subroutine  Listing 

FUNCTION  HYSTLI ( X , H , T ) 

DI.iEToIO.'J  T ( 5 ) 

TOnoaL  ,-jOTOP  HYSTERESIS 
I? ( T ( 1 ) . «L . 0 . 0 ) GO  TO  5 0 
T(3)=  r* 

T ( 2 ) = — 

T ( 4 ) = 0.0 
T(  5 ) = 0.0 
0 0 COUTlTUr, 

T(  1)  = +1  X wOVIXO  1,4  POSITIVE  OIPECTIOT 

T { 1 ) = -1  X . iOVI'.'G  IX  GCGh'G IVu  DIRECTION 

IF(T(1))  200,100,100 

" iOVI.’O  14  POSITIVE  OltUXTIO!.' 

100  COOGI-Un 

ir  ( X-T( 5 ) ) 120,110,110 

110  COi.iTI.iUn 

I*  (X.LT.T(3))  GO  TO  300 
i'(  4)  = X-rt 
GO  TO  300 
120  T ( 1 ) = -1 

T ( 2 ) = T(4)-H 

GO  VO  2 20 

X :OV I ’0  IT  XtGA-IIVL  OIRLCTIOG 


ir  (X-T(O))  220, 220,210 
V(l)  = 1 
T ( 3 ) = T ( 4 ) + i‘ 

GO  TO  110 

co  ■■'•ci  m, 

IF  (X.GT. T(2))  0,0  TO  3 00 
T(  4)  = X+:, 

CO  OCX  ;rjj . 

T ( 0 ) = X 

HYSTLT  = I ( •• ) 

PtTuX'4 
•;■  -'r, 
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fa. 10  CFRIC/CFRIC2  SUBROUTINES 

CFRIC/CFRIC2  provide  for  the  inclusion  of  coulomb  friction  into  the 
simulation  of  a mechanical  system.  Coulomb  friction  is  that  which  occurs 
between  a block  sitting  on  any  typical  dry  surface.  If  the  block  is  in 
motion  (sliding  on  the  surface),  the  friction  force  is  assumed  constant  and 
opposite  to  the  velocity.  If  the  block  is  at  rest,  the  friction  is  equal  to 
the  applied  force  (but  with  opposite  si  git)  bounded  by  the  stictiun  ratio 
times  the  running  friction  value. 


8.10.1  Subroutine  Listing, 


SUBROUTINE  CFP.IC  ( FDRIVE,  FF , XD,  XDS , XDD, 
IF(XO.\tE.O.)GO  TO  25 
FF  = -FORI VE 

I?{  A3S(  FF)  . GT. FRIC*3R*3F)  FF=SIGM ( FRIG  , 
GO  TO  55 
25  CONTINUE 

M?X0=3IGM( 1. , XD) 

U?XDS=SIGN(1. ,XOS) 

IF ( N PXO • EO • N PXD5 ) GO  TO  50 

IF(  3\ 33  ( FDRIVL)  . GT.  FRIC*SR*3F)  GO  TO  50 

XD«0. 

XrS-0. 

X D 0=  0 . 

XR03'=0. 

FF=-FDkI VE 
GO  TO  55 
50  CONTINUE 

FF=3  TON ( FRIC , -XD) *OF 
55  CONTINUE 
RETURN 
END 


XROS  / FRIC , SP./  3F) 
-FDRIVB) *3R*3F 


8.10-2 
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8.10.1  (Continued) 

SUBROUTINE  CFRIC2(  FDRIVE,  FF, XD, XDS, XDD, XODS , VI,  V2,  FRIC,Stt,3F) 
IF( XD. HE. 0. ) GO  TO  2 5 
FF  = -F DRIVE 

IF  ( A3S  { FF)  .GT.  FRIC*SR*3F)  FF=SIGN  ( FRIC , -FORIVE ) *3R*3F 
GO  TO  55 
25  CONTINUE 

NPXD=UIGU( 1. ,XD) 

NPXDS=SICN( 1. ,XD3) 

IF  ( *vPXD.  EQ.  NPXDS ) GO  TO  50 

IF( A33( FDRIVE) .GT. FKIC*3R*0r ) GO  TO  50 

XD=0  . 

XD3=0 . 

XDD=0 . 

XD0S*0. 

V1«0. 

V2*0. 

FF=- FDRIVE 
GO  TO  55 
50  CONTINUE 

FF«5I-2K(FRIC,-XD)*i*F 
55  CONTINUE 
RETURN 
END 
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